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= 注 意 
[ — 


この マニ ュ ア ル は 、 パ ー ソ ナル コン ピュ ー タ MZ-2000 の シス テム ソフ トウ ェ ア BASTC 
イン ター プリ タ MZ-2Z001 に 基づい て 作成 され て いま す 。 


(1) 多目的 パー ソナ ルコ ンピュータ MZ-2000 で は 、 シ ステ ム ソ フ トウ ェ ア を すべ て ファ イル 形 
態 の ソフ トウ ェ ア パ バック (カセット テー プ 、 デ ィ ス ク な ど ) に よっ て サポ ー ト され ます 。 
各 シ ステ ム ソ フ トウ ェ ア お よび 本 書 の 内 容 は 、 改 良 の た め 変 更 す る こと が あり ます の で 、 フ 
ァイル バー ジョ ン ナ ン バ ー に は 特に ご 注意 され る よう 、 お 願い 致し ます 。 


(2) 本 機 は 非常 に 複雑 な 機能 お よび 組合 せ を 有する 製品 で あり 、 出 荷 に 際 し て は 取扱 説明 書 を 含 
め て 充分 な チェック を し て 万 全 を 期し て お り ま す が 、 万 ー ご 使用 中 ご 不審 な 点 、 お 気付 き の 
こと が あり まし た ら 、 も より の シャ ー プ の サー ビス 窓口 (技術 サー ビス 部 ・ サ ービス ステ ー 
ショ ン ・ サ ービス プ ブラ ンチ ) まで ご 連絡 願い ます 。 な お 、 運 用 し た 結果 生じ る 影響 に つい て 
は 責任 を 負い か ね ます の で あら か じ め ご 了承 くだ さい 。 


(3) パー ソナ ルコ ンピュータ MZ-2000 の シス テム ソフ トウ ェ ア は 、 す べ て シャ ー プ 株 式 会 社 の 
オリ ジ ナ ル ソ フ トウ ェ ア で あり 、 著 作 権 は 当社 が 保有 し て お り ま す 。 シ ステ ム ソ フ トウ ェ ア 
な ら び に 本 書 の 内 容 を 無断 で 複製 する こと は 禁じ られ て いま す 。 
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付録 カー ド DISK BASIC ERROR LIST & FILE CONTROL 


は じ め に 


この ソフ トウ ェ ア は ディ スク で 供給 し て お り ま す 。 デ ィ ス ク の 取り 扱い に つい て は 特に 注意 が 必要 で す の で 、 取 り 扱 い 
方 法 に つい て は 本 書 121 ペー ジ を 参照 くだ さい 。 


ディ スク オペ レー ショ ン 時 に は マス ター ディ スク を 使用 せ ず 、 マ スタ ー デ ィ ス ク を コピ ー し た サブ マス ター ディ スク を 
使用 する こと を 推奨 し ます 。 不 慮 の 事故 に よっ て マス ター ディ スク が 使用 不能 と な ら な いよ うに 、 安 全 な 場所 に 保管 くだ 
さい 。 


(注意 ) 動作 時 の ディ スク の 入れ 換え 

ディ スク を フロ ッ ピ ー ド ライ ブ プ に 挿入 し 、 読 み 出し 、 書 き 込み を 実行 し て いる 時 は 、 デ ィ ス ク の 入れ 換え を 行っ て は い 
け ま せん 。 

ディ スク ドラ イブ 操作 中 に ディ スク を 入れ 換え る 必要 が ある 場合 に は 、 デ ィ ス ク の 内 容 破 壊 防止 の た め に 、 デ ィ ス ク を 
入れ 換え る 直前 に 、 か な ら ず KILL 命令 を 実行 し て くだ さい 。 


概 要 説 明 


DISK BASIC は 、 カ モッ ト ベ ー ス BASIC に 対し で 、 強力 な ファ イル コン トロ ー ル 機能 を も つ 、 フ ァイル 指向 の BASIC 
と し て 、 ク リー ンコ ンピュータ シス テム MZ-2000 の 新しい ソフ ト 領 域 を 拡げ る シス テム ソフ トウ ェ ア で す 。 す な わ ち 、 フ 
ロッ ピー ディ スク ファ イル の 大 容量 で 、 し か も 高速 デー タ ア クセ ス が 可能 で ある 特質 を 生か し て 、 フ ァイル が 単に デー 
タ の 蓄積 を 礎 う だ け で な く 、 シ ステ ム と 直接 に 結び つい た デー タ ・ エ リア と し て 使用 する こと が で きる の で す 。 さ ら 
に 、CHAIN、SWAP と いう コマ ンド を 用 いて 、 プ ログ ラム テキ スト 自体 を 、 ジ ョ ブ 単 位 に オー バレ イ 、 リ ンク させ て 走 
ら せ る こと が で き 、 プ ログ ラム の 分 割 (セグメンテーション) と いう 新しい 手法 を 展開 する こと が で きま す 。 

また 、 こ の DISK BASIC は GP-IB お よび RS-232C イ ンター フェ イス に 関す る コン トロ ー ル を 含ん で いま す の で 、 
GP-IB イ ンタ ー フ ェ イ スカ ー ド MZ-8BI04、 シ リア ルイ ンタ ー フ ェ イ スカ ー ド MZ-8BI03 を 用 いて 、 コ ンピュータ MZ- 
2000 に より 機器 を コン トロ ー ル する 場合 、 こ の BASIC を 用 いる こと が で きま す 。 

DISK BASIC を 理解 され 、 そ の 機能 を 充分 発揮 きれ る こと に よっ て 、 ス モー ルビ ジネス 研究 室 で の 本 格 的 な 、 よ り 
高度 な シス テム 活用 が 可能 に な る も の と 考え られ ます 。 コ ンピュータ シス テム は 、 そ の デー タ 処 理 装置 と 主 メ モリ と が 構 
成す る ロジ カル 的 な 内 部 シス テム と 、 そ こ て で て 処理 され る デー タ や プロ グラ ム バ ンク が 構成 する 外部 ファ イル シス テム の 、 
2 つの 大 き な シ ステ ム に 分 け て 考え を る こと が で きま す が 、 フ ロッ ピー ディ スク 装置 お よび DISK BASIC は 、 こ の ファ イ 
ル シ ス テム コン トロ ー ル を 司る 柱 と し て の 重要 な 役割 を 果す こと に な る か ら で す 。 


デー タフ ァイル コン トロ ー ル 

デー タフ ァイル に は 、 フ ァイル アク セス の 形式 に 従っ て 、 2 種類 あり 、1 つ は シー ケン シャ ル ア ク セス ファ イル 、 も う 
1 つ は ラン ダム アク セス ファ イル と 呼ば れ ま す 。 

シー ケン シャ ル ア ク セス ファ イル と は 、 フ ァイル デー タ の アク セス を 、 ひ と つなが り の プロ ッ ク と し て 扱う も の で 、 一 
連 の デー タ 和 群 を 、 フ ァイル 名 を 指定 し て 、 フ ァイル 上 に 登録 、 あ る い は 呼び 出す 際 、 各 デー タ は 、 そ の 並び の 先頭 か ら 順 
次 アク セス され ます 。 


シー ケン シャ ノル 
アデ アク セス ファ イル (BSD) 


" filename' 


それ に 対し て 、 ラ ンダ ム ア ク セス ファ イル で は 、 フ ァイル 中 の デー タ ア クセ ス が 、 ラ ンダ ム 形 式 で 行わ れ ま す 。 す な わ 
ち 、1 つ の ラン ダム アク セス ファ イル は 、 1 つの ファ イル 名 で 指定 され る デー タ 群 を 構成 し ます が 、 そ の 個々 の デー タ は 、 
ファ イル 上 に 1 次 元 配列 要素 の 形 で 登録 きれ て お り 、 各 デー タ の 書き 込み 、 読 み 出 し は 、 そ の デー タ 要 素 番 号 (expression) 
を 指示 する こと に よっ て 行わ れ ま す 。 


expression 


FIFA 
アク セス ファ イル (BRD) 


" filename "' 


一 般 に 、 あ る デー タ の 集合 が 、 一 連 の も の と し て 捉え られ る と き (た と えば 、POKE 廊 で 機械 語 プ ログ ラム を 作成 する 
と き 使 う 、10 進 表現 の 一 連 の デー タ や 、 先 頭 か ら 順 次 並べ られ た 、 表 の 要素 な ど )、 シ ー ケ ン シ ャ ル ア ク セス ファ イル 上 に 
その デー タ 集 合 を 登録 する の が 有効 だ と いえ ます 。 ま た 、 デ ー タ の 集合 が 全体 と し て だ け で な く 、 個 々 の 要素 と し て アク 
セス され る 必要 の ある と き 、 た と えば 、 デ ー タ の 書き 替え 、 検 索 、 並 べ 替 え 、 削 除 な ど が 必要 で ある と き 、 ラ ンダ ム ア ク 
セス ファ イル 上 の デー タ と し て 構成 する の が 有効 だ と 言え ます 。 


プロ グラ ム フ ァ イル コン トロ ー ル 


プロ グラ ム フ ァ イル コン トロ ー ル コマ ンド 、CHAIN お よび SWAP は 、 プ ログ ラム 実行 中 に 、 他 の プロ グラ ム フ ァ イル 
を オー バレ イ し て 、 コ ント ロー ル を 移す だ ため の も の で す 。 
CHAIN は 、 下 図 の よう に 、「goto "filename" 」 と し て の 機能 を 持っ て いま す 。 


テキ スト "ABC" 


テキ スト "DEF" 


goto "DEF' 


SWAP は 、「gosub "filename" 」 と し て の 機能 を 持ち も 、 オ ー バ レイ サブ プロ グラ ム の 終了 後 、 は じ め の プロ グラ ム に 
戻る (この 時 も オー バレ イ が 行わ れ ま す ) こと が で きま す 。 


gosub "JKL" 


テキ スト "JKL" 


return 


この 他 に 、 機 械 語 プ ログ ラム ファ イル を ロジ カル オー プン し て リン ク す る コマ ンド も あり ます 。 ま だ た 、 ユ ー テ ィ リ ティ 
プロ グラ ム を 用 いた 各種 の ファ イル マネ ー ジ メン ト を 行う こと が で きま す 。 


DISK BASIC 概要 


この 章 は 、DTSK BASTC イ ンタ ー プ リタ MZ-2Z001 の 特徴 、 フ ァイル コン トロ 
ー ル の 概要 に つい て 解説 を 行っ て いま す 。 は じ め に 、DTSK BASTOC の 起動 方 法 


が 説明 され ます 。 


DISK BASTOC の 持っ 新規 コマ ンド 、 ス テー トメ ント の 文法 解説 は 第 2 章 に 、 
DISK BASTC の 持つ 全て の コマ ンド 、 ス テー トメ ント 、 関 数 、 オ ペレ ー タ の ま 
と め は 第 4 章 で す 。 


Chapter 
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1.1 DISK BASIC イン ター プリ タ IMZ-2Z001 の 起動 


DISK BASIC イ ンタ ー プ リタ MZ-2Z001 (お よび MONITOR MZ-1Z001MV) は マス ター ディ スク 中 に ある の で 、 そ 
れ を 走ら せる に は 先ず 、IPL に よっ て イニ シャ ル 、 ロ ー デ ィング を 行わ な けれ ば な り ま せん 。 

イニ シャ ル ・ ロ ー デ ィング は 簡単 に 実行 する こと が で きま す 。MZ-2000 (電源 OFF) に フロ ッ ピ ー デ ィ ス ク ド ラ イブ 
を 接続 し た 状態 で 、 ド ライ ブ の 電源 を ON に し 、 ド ライ ブ 1 番 に マス ター ディ スク を セッ ト し ます 。 そ し て 、MZ-2000 の 
電源 を ON する と 、DISK BASIC が 自動 的 に 起動 され ます 。 t) 

図 1 ユ 1 の 左側 は 、DISK _ BASIC を ロー ディ ング 中 で ある こと の メッ セー ジ 表 示 を 、 右 側 は 、 ロ ー デ ィング を 終了 し 
T, DISK BASIC イ ンタ ー プ リタ MZ-2Z001 (お よび MONITOR MZ-1Z001M) が 起動 し 、 カ ー ソ ル 点 減 に よっ て 
BASIC コ マン ドレ ベル に な っ た こと を 、 そ れ ぞ れ 示 し て いま す 。 


IPL is loading Disk Basic Së MONITOR Mz-1zaeiM xx 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


BASIC inter 
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35052 Butes 
Ready 


BASIC テ キス ト "AUTO RUN "が 自動 的 に 実行 され る こと 

上 記 の オペ レー ショ ン の うち に 含ま れ て いる 、BTX'" AUTO RUN" の 実行 を 解説 し ます 。 DISK BASIC が ロー ディ 
ング され 、 テ キス ト エ リア の バイ ト サ イ ズ (上 例 で は 35052 バ イト ) が 表示 され る と 、 再 び 、 マ マスター ディス ク が アク セ 
ス さ れる の に 気が付か れ た と 思い ます が 、DISK BASIC は 、 イ ニシ ャ ル ロ ー デ ィング を 終え た 時 、 自 動 的 に 、 

RUN "AUTO RUN" 

コマ ンド を 実行 し ます 。 即 ち 、” AUTO RUN" と いう ファ イル 名 の プロ グラ ム テ キス ト を 同じ マス ター ディ スク か ら 
ロー ド し 、 そ の 先頭 か ら 実 行 し ます 。 サポ ー ト され た マス ター ディ スク 上 に は 、 デ ファ イナ ブル ファ ンク ショ ン キ ー を 定 
義 む する プロ グラ ム を この ファ イル 名 で 登録 し て いま す 。 ま た 、 こ の プロ グラ ム の 最後 に 、NEW 文 を 置い て いる の で 実行 後 、 
"Ready" を 表示 し カー ソル 点 減 と な る 前 に テキ スト は 消去 され て いる の で す 。 (一度 、LOAD "AUTO RUN" を 行っ 
て リス ト を 調べ て みて 下さ い 。) 

bL., DISK BASIC の 起動 に 続け て 、 或 る プロ グラ ム を スタ ー ト させ た だ たい 場 合 、 そ の プロ グラ ム の ファ イル 名 を 「A 
UTO RUN" と し て マス ター ディ スク 上 に セー プ し て お け ば よい こと に な り ま す 。 


TD ファ イル の イニ シャ ル ロ ー デ ィング は 、 カ モッ ト フ ァイル より も 、 デ ィ ス ク フ ァ イル が 優先 と な っ て お り 、 ま た ディ スク ドラ イブ は 1 
番 が 自動 的 に ロー ド ・ ア クセ モス され る の で この 自動 オペ レー ショ ン が 行わ れ ま す 。 ド ライ ブ 2 番 に よっ て イニ シャ ル ・ ロ ー デ ィング を 行う 
場合 等 の 操作 方 法 は 、Owner's Manual 第 2 章 に 解説 され ん てい ます 。 
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12 ファ イル コン トロ ー ル 


DISK BASIC で 作成 され る ファ イル は 、 シ ー ケ ン シ ャ ル ア ク セス ファ イル (BSD) と ラン ダム アク セス ファ イル (BRD) 
の 2 種類 の デー タフ ァイル と 、BASIC テ キス ト (BTX) の プロ グラ ム フ ァ イル の 3 種類 が ある こと を 、 フ ァイル の 説明 
の 項 で 述べ まし た 。 も う 一 種類 の 機械 語 プ ログ ラム ファ イル (OBJ) は 、 MONITOR プ ログ ラム ある い は FDOS な ど で 作 
成 し た も の を ディ スク 上 へ 登録 し た も の で 、 そ れ は 、 単 独 で 走ら せる か 、BASIC の 機械 語 エ リア へ 乗せ て 、 BASIC テ 
キス ト と リン ク し て 使う な どの 目的 を ちっ た ファ イル で す 。 し た が っ て 、DISK BASIC で 利用 する こと は で き て も 、 
DISK BASIC で 作成 し た り 内 容 を 変更 し た りす る ファ イル で は あり ませ ん 。 


シー ケン シャ ル ア ク セス 
ファ イル BSD 


デー タフ ァイル 
ラン ダム アク セス ファ イ 
JV BRD 
DISK BASIC 
PW BASICT*Abk774M 
"es BTX 
フロ グラ ム フ ァ イル 


機械 語 プ ログ ラム ファ イ 
Jv OBJ 


各種 ファ イル コン トロ ー ル コマ ンド の 解説 に あたっ て 、 は じ め に 、 2 種類 の デー タフ ァイル の 作成 方 法 、 利 用 方 法 、 そ 
れ ぞ れ の 特徴 を 説明 し 、 つ づい て 、 プ ログ ヲ ム ファ イル の CHAIN、SWAP コ マン ド の 使い 方 を 説明 し て 行き ます 。 


1.3 シー ケン シャ ル ア ク セス ファ イル の コン トロ ー ル 


シー ケン シャ ル ア ク セス ファ イル と は 、 デ ー タ の 登録 また は 呼び 出し が 、 シ ー ケ ン シ ャ ル ア ク セス 形式 で 行わ れる デー 
タフ ァイル の こと で す 。 シーケンシャル アク セス (sequential access) 形式 と は 、 デ ー タ の アク セス を 、 先 頭 か ら 順 番 に 
行う 形式 を 意味 する も の で す 。 

すでに 、 MZ-1Z001 シ リー ズ の BASIC で 、 カ セッ ト フ ァイル 上 へ 、 デ ー タ ファ イル を 作成 する 方 法 を 説明 し て いま す が 、 
DISK _ BASIC で の シー ケー ンジ シャル アク セス は 、 ち ょ うど それ と 同じ こと を 、 デ ィ ス ク に 対し て 行う も の で す 。 も ちろ 
ん 、 は る か に 高速 アク モス が で き 、 さ ら に 幾つ か の 新しい ファ イル コン トロ ー ル コマ ンド を 用 いる こと に よっ て ファ イル 
管理 の 面 で も 幅 の ある 使用 が 可能 と な り ま す 。 


最初 に 、DISK BASIC と 、 カ モット ベ ー ス の BASIC の それ ぞ れ の シー ケン シャ ル ア ク セス コマ ンド の 構成 を 、 対 比 
させ て みる こと に し ます 。 


ファ イル の 登録 (デー タ の 書き 込み ) 


プ ァ イル オー プシ コマ ンド " filename " WOPEN  " filename " 
デー タ 書 き 込 み コ マン ド data PRINT/T data 


ファ イル クロ ー ズ コマ ンド CLOSE 


キャ ン モ セル コマ ンド ーーーーーー 


ファ イル の 呼び 出し (デー タ の 読み 出し ) 


ファ イル オー プン コマ ンド ROPEN #n, " filename " ROPEN  "' filename ' 
デー タタ 読み出し コマ ンド INPUT #n, variable INPUT ’T variable 


ファ イル クロ ー ズ コマ ンド CLOSE Za CLOSE 


ファ イル エン ド の 検出 IF EOF (#n) THEN = 


ik) A-Pravy FD MBL, FIA V7WIETaAZIRUL—ATLGOom*eaeikde ELND2ZWDKTCSEMIB ORL THE 
す 。 


それ ぞ れ の コマ ンド の 構成 を 比べ て みて 、 殆 ど 、 一 対 一 に 対応 し て いる こと が わか る と 思い ます が 、DISK BASIC 
の コマ ンド に は いつ も 、# ヵ と いう 要素 が 含ま れ て いま す が こ れ は 、 ロ ジ カ ル ナ ン バ (logical number) と 呼ば れる 番号 
T, DISK _ BASIC の ファ イル アク セス は 、 常 に この 番号 を 指定 し て 行わ な けれ ば な り ま せん 。 

カセ ッ ト ベ ー ス BASIC で は 、 フ ァイル アク セス は デー タ の 書き 込み か 読み 出し か を 1 つの ファ イル に つい て 実行 する 
だ けし か で きま せん が 、DISK BASIC で は 、 デ ィ ス ク と いう 、 フ ァイル が 複数 並 置 さ れ 任意 に アク セス で きる シス テム 
を 活か し て 、 同 時 に 複数 個 (最大 10 個 ) の ファ イル を コン トロ ー ル する こと が で きま す 。 そ し て 、 フ ァイル を オー プン し 
だ た ら 、 そ れ ぞ れ 任 意 に 選ん だ ロジ カル 番号 に 定義 し て お き 、 そ ね れ 以後 該当 ファ イル の 指定 は 、 ロ ジ カ ル ナ ン バ ヾ を 使っ て 、 
わざ わざ ファ イル 名 を 書か な く て 済む よう に し て いる の で す 。 
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簡単 な 例 と し て 、 人 名 と その 自宅 の 住所 と を シー ケン シャ ル ア ク セス ファ イナ ル に 登録 する こと を 考え て み ま す 。 手元 
に ある 住所 録 、 た と えば あな た が 同窓 会 の 幹事 を し て いる と し た ら そ の クラ ス 全 員 の 名 簿 を 片っ端 か ら 全 部 ファ イル に と 
っ て お く の で す 。 た だ たとえ そば 、 次 の よう な ファ イル と し て …… 


filename= "3 一 H、 ク ラス メイ ボ " 


人 名 も 住所 も 長き を バラ バラ に 書い た の は 、 一 般 に シー ケン シャ ル ア ク セス で 登録 され る デー タ は 固定 長 で は な く 、 デー タ に 
よっ て 長 さ が 異 る か ら で す 。 後 で 出 て 来る ラン ダム アク セス ファ イル で は デー タ は 全て 32 バ イト の 固定 長 の 箱 に 収め られ 
ます 。 今 の 場合 の よう に 、 デ ー タ が 、 1 まとまり の も の と し て 扱わ れ (3 年 H 組 と いう 1 クラ ス 全 体 )、 ま た 住所 の よう に 
だ た いて い 32 バ イト で は 足り な く 、 長 さき も まち まち の 場合 、 シ ー ケ ン シ ャ ル ア ク セス ファ イル に 登録 する の が 向い て いま す 。 

INPUT 文 で 、 人 名 と 住所 と を 交互 に スト リン グ 変 数 に 代入 し て 、 1 人 ずつ ファ イル に 登録 し て 行き 、 全 部 で 50 人 分 の 
住所 録 " 3 一 H、 ク ラス メイ ボ " を 作成 し 、 次 に 作成 され た ファ イル を 読み 出し て 、10 人 分 ずつ 名 前 と 住所 と を CRT デ ィ 
スプ レイ に 表示 し て いく プロ グラ ム は 、 湊 の よう に し て 作る こと が で きま す 。 


〔 書 き 込み 〕 
100 WOPEN #3,FD1@22 , "3 一 日, クラ ス メ イ ボリ" 
110 FOR P=1 TO 50 


120 INPUT "ナマ エ テ " ;NA$ 

130 INPUT "ジュ ウシ ョ テー" : AD$ 
140 PRINT #3,NA$ ,AD$ 

150 NEXT P 


160 CLOSE #3 


(RAH LU) 

200 ROPEN #4, FD1@22, "3-H, クラ ス メ イ ボ ポ " 
210 FOR P=1 TO 5 :FOR Q=1 TO 10 

220 INPUT #4,NA$,AD$ 

230 PRINT NA$ : PRINT AD$ 


240 NEXT Q 

250 PRINT "STRIKE ANYKEY" 

260 GET X$:IF X$= "'" THEN 260 
270 NEXT P 


280 PRINT "END" 
290 CLOSE #4 
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画 フ ァイル エン ド の みつ け 方 


ファ イル か ら デ ー タ を 順番 に 読み 出し て 行っ て 、 登 録 き れ て いる デー タ を 越え た 場合 に どう な る か ?…… この 場合 は 、 
エラ ー は 発生 せ ず 、 読み 出す 変数 に は 0 か 空 が セット され る こと に な る の で す が 、 特 別 な 関数 、EOF (itn) と いう も の が 
あり 、 こ れ が ファ イル エン ド を 捉え ます 。EOE(# ヵ ) は 、INPUT# コマ ンド で デー タ の 読み 出し を 行っ た 時 、 そ の ファ 
イル エン ド に 来 て いた ら 条 件 が 真 と な り ま す 。 し た が っ て 、INPUT # 文 の 次 に 、 


IF EOF (#n) THEN 


コマ ンド を 置い て お く と 、EOF (#n) が " 真 "、 す な わ ち ファ イル エン ド を 見 つけ 出し た 場合 に 、 THEN 以 下 が 実 行き 
れる こと に な り ま す 。 
(Rü 題 ) 前 ペー ジ の プロ グラ ム 例 で 、" 3 一 HH、 ク ラス メイ ボ " の 読み 出し で 、 こ れ に 登録 きれ て いる 人 数 が 不明 
だ と し て 、10 人 分 ずつ ファ イル エン ド ま て で 読み 出し 、 表 示す る プロ グラ ム に 変更 し な さい 。 
(B) 解 ) た と えば 次 の よう な プロ グラ ム が 考え られ ます 。 


300 ROPEN #5, FD1@22, "3—H, クラ ス メ イ ボリ " 
310 FOR I=1 TO 10 

320 INPUT #5, NA$, AD$ 

330 IF EOF (#5) THEN 400 

340 PRINT NA$: PRINT AD$ 


350 NEXT I 
360 PRINT "STRIKE ANYKEY" 
370 GET X$:IF X$=" "THEN 370 


380 GOTO 310 
400 CLOSE #5 
410 PRINT "FILE END" : END 


練習 問題 
(Fl 題 〕] BSD フ ァイル "3 一 HH 、 ク ラス メイ ボリ" を 人 名 だ け 登 録 し た BSD フ ァイル と 住所 だ け 登 録 し た BSD フ ァ 
イル の 2 つ に 分 け て 登録 し 直し て みよ 。 


(Bj Si 500 ROPEN #6, FD1@22, "3—H, クラ ス メ イ ボリ " 
510 WOPEN #7, FD1@22, "ナマ エリ" 
520 WOPEN #8, FD1@22, "ジュ ウシ ョ リ 
530 INPUT #6, NA$, AD$ 
540 IF EOF (#6) THEN 600 
550 PRINT #7,NA$ 
560 PRINT #8,AD$ 
570 GOTO 530 
600 CLOSE 
610 END 


(A 題 〕 INPUT 文 で キー 入力 し た スト リン グ を BSD フ ァイル に 登録 する 。 た だ し 、 フ ァイル を クロ ー ズ する 場合 
"CLOSE" を 、 キ ャ ン セ ル す る 場合 " KILL" を キー 入力 する も の と し ます 。 


(B) 解 〕 100 WOPEN #30, "SEQ DATAS" 
110 INPUT "DATA="; A$ 
120 IF A$="CLOSE" THEN CLOSE #30: END 
130 IF A$="KILL" THEN KILL #30: END 
140 PRINT #30, A$ : GOTO 110 
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LA ラン ダム アク セス ファ イル の コン トロ ー ル 


ラン ダム アク セス ファ イル と は 、 デ ー タ の 登録 また は 呼び 出し が 、 ラ ンダ ム ア ク セス 形式 で 行わ れる デー タフ ァイル の 
こと で す 。 ラ ンダ ム ア ク セス (random access) 形式 と は 、 フ ァイル 中 の デー タ の アク セス を 、 配列 形式 と し て 指定 する こ 
と に よっ て 行う と いう こと で す 。 つ まり 、 シ ー ケ ン シ ャ ル ア ク セス の 場合 は 必ず 、 デ ー タ 集合 の 先頭 か ら 順 番 に アク セス 
が 行わ れる の に 対し て 、 ラ ンダ ム ア ク セス ファ イル で は 、 デ ー タ 集中 の 任意 の デー タ 要 素 を いき な り ア クセ ス す る こと が 
で きる の で す 。 


ラン ダム アク セス ファ イル を 構成 し て いる デー タ 集 合 に 対し て 、 そ の 配列 要素 を 指定 し て デー タ ア クセ ス を 行う た め に 、 
ラン ダム アク セス コマ ン ド で の PRINT st X, INPUT st 文 は 、 次 の よ う Iz ロジ カル ナン パパ に つ プ いで 、 expression ( 配 
列 要素 指定 式 ) が 置か れ ま す 。 


PRINT #n(expression),. data 
INPUT ita(expression). variable 
t 


配列 要素 の 指定 


expression は 数 値 ま た は 変数 で 与え を ます 。 た と えば 、 
INPUT #7 (21), A$ 
と いう ステ ー ト メン ト は 、 ロ ジ カ ル ナ ン バ # 7 に オー プン され て いる ラン ダム アク セス ファ イル の デー タ 集 合 中 で 、21 番 
目 の 要 素 と し て 登録 きれ て いる デー タ を 、 ス トリ ング 変数 A $ に 読み 出せ と いう 意味 に な り ま す 。 


ラン ダム アク セス ファ イル の この よう な デー タ ア クセ ス を 可能 に し て いる 条件 と し て 、 各 デー タ は 、 固 定 長 で 登録 され 
る と いう こと に 注意 し な く て は な り ま せん 。 即ち 、 数 値 お よび スト リン グ 変 数 は ファ イル 上 に 登録 され る と き 、 い ずれ も 
32 バ イト で 区 切ら れ た " 箱 " の 中 に セッ ト さ れる の で す 。 


expression 


ーー 変数 A 人 0.12345678+E10 


ラン ダム アク セス 
ファ イル 


— ストリ ング"ABCDEFGHI" 
— スト リン グ "ABC" 


O0) Ql i WD E —— 


数 値 変 数 の 場合 は 、 指 数 表現 の 場合 で も いつ も 32 バ イト 内 に お さま り ま す が 、 ス トリ ング 変数 の 内 容 は 、 最 大 255 バ イ 
ト の 長き さま で 持つ こと が で きる の で 、32 バ イト を 越え る スト リン グ は 、 ラ ンダ ム ア ク セス ファ イル の 1 つの デー タ 有 要素 に 
登録 する こと が で き な い こと に な り ま す 。 
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シー ケン シャ ル ア ク セス ファ イル と 異 る も う 一 つの 点 は 、 フ ァイル が 一 旦 クロ ー ズ され 登録 され た 状態 に な っ て いて も 、 
同じ ファ イル を さら に 大 きく し て 行く こと が で きる こと で す 。 だ たとえ そば 、expzesszoz が 20 ま で 使わ れ て 登録 きれ た ラン ダ 
ム ア ク セス ファ イル " RND 1" が あっ た と し た と き 、 新 た に expression を 30 と し て デー タ を 登録 する と "RND 1 "は 、 
30 の " 箱 " を 持っ た ファ イル に 増大 し て 行き ます 。 


"RND 1" "RND 1" 
= — 
きら に 、 増大 可能 — 3 1 
expression =30) ——— ——» — 
で ggzg を 登録 


今 、 ラ ンダ ム ア ク セス ファ イル を 利用 し て 、 簡 単 な 在庫 リス ト フ ァイル を 作成 する こと を 考え て み ま し ょ う 。 そ れ ぞ れ 
の 品物 に は 、No.1 か ら No.50 まで の 固定 し た 品番 が ある も の と し て 、 フ ァイル に は 、 品 名 、 単 価 、 在 庫 数 、 金 額 (単価 x 
在庫 数 )、 コ メン ト の 4 項目 を 置く こと に し ます 。 

それ ぞ れ の 品物 に つい て 、 在 庫 デ ー タ を 登録 する の に 、 は じ め に 品番 を 入力 し て お いて 、 次 に 各 項 目 に 登録 する 内 容 を 
入力 する よう に し ます 。 


在庫 デー タ の 登録 
100 XOPEN #5, "STORE LIST" 
110 INPUT "ヒン バン = テリ 5K 
120 IF K=0 THEN 300 
130 INPUT "ヒン メイ = ";N$ 
140 INPUT "タン カ =" ;P 
150 INPUT "ザイ コス ウ =";S 
160 INPUT "コメ ント =="; C$ 
170 T=P*S 


180 PRINT #5 (K*5—4),N$,P,S,T,C$ 
190 GOTO 110 

300 CLOSE #5 

310 END 


これ に よっ て 作成 され る ラン ダム アク セス ファ イル は 、 次 の よう な も の に な り ま す 。 品番 を K=12 と する と 、 配 列 引 数 
(expression) が 56 一 60 に 相当 する 要素 に 5 の デー タ が 登録 され ます 。 


expression 


Kx5-4 
K=12 BRD フ アイ ル 


"STORE LIST" 
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この よう に 、 デ ー タ は ファ イル 上 の 任意 に 指定 で きる 配列 に モッ ト す る こと が で きま す 。 し た が っ て 、 先 頭 か ら 順 番 に 
デー タ が つめ られ た シー ケン シャ ル ア ク セス ファ イル と 異 っ て 、 フ ァイル 中 に デー タ の 空 番 地 が で きる こと も あり ます 。 
また デー タ の 書き 換え も 簡単 に で きる こと に な り ま す 。 


次 に 、 こ こ で 作成 し た ラン ダム アク セス ファ イル "STORE LIST" を 呼び 出し て 、 あ る 品物 の 在庫 デー タ を 読み 出す 
こと を 考え て み ま し ょ う 。 


在庫 デー タ の 呼び 出し 
500 XOPEN #17, "STORE LIST" 


510 INPUT "ヒン バン =" ;J:IF J—0 THEN 700 
520 INPUT #17(J*K5—4),N$,P,S,T,C$ 

530 PRINT "NO." ; J: PRINT "ヒン メイ ";N$ 
940 PRINT "777 "SP 

550 PRINT "ザイ コス ウ " ;S 

560 PRINT "キン ガク ";T 

570 PRINT "コメ ント ";C$ 


580 GOTO 510 
700 CLOSE #17 
710 END 


この よう に 、 品 物 が 多数 あっ て も 所 望 の 品物 の 品番 を 入力 する こと に よっ て 直ちに その 在庫 デー タ を 呼び 出す こと が で 
きま す 。 
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1.55 プロ グラ ム の CHAIN 


デー タフ ァイル コン トロ ー ル 命令 に 続い て 、 プ ログ ラム ファ イル の コン トロ ー ル に つい て 説明 いた し ます 。 こ こ で 説明 
され る 命令 は 、 CHAIN と SWAP の 2 つの コマ ンド で す 。 こ の コマ ンド を 用 いる と 、 プ ログ ラム を ジョ ブ 単 位 で ディ スク 上 
に 登録 し て お いて 、 プ ログ ラム を 走ら せな が ら 、 別 の プロ グラ ム を 呼び 出し て それ に コン トロ ー ル を 移す こと が で きま す 。 
つま り 、 プ ログ ラム を 、 デ ィ ス ク 上 に 登録 きれ て いる プロ グラ ム に 接続 し た り (CHAIN) 、 サブ ルー チン の 形 で 呼び 出し た 
り (SWAP) する こと が で きる の で す 。 は じ め に 、 プ ログ ラム を 接続 、 連 結 す る CHAIN コ マン ド か ら 説 明 い た し ます 。 


CHAIN コマ ンド の 形式 は た と そば 次 の よう に な っ て いま す 。 


700 CHAIN FD1@50, "TEXT 2" 


この ステ ー ト メン ト は 、 現 在 テ キス ト エ リア 内 に ある プロ グラ ム を NEW し て (た だ し 変数 の 値 は 保持 する )、 ド ライ ブ 1 
番 中 の ボリ ュー ム ナ ン バ 50 の ディ スク 上 に 登録 きれ て いる 、 “TEXT 2" と いう ファ イル 名 の テキ スト を 、 オ ー バ レイ 
(テキ スト エリ ア へ 重ね て 読み 出す こと ) し て その テキ スト の 先頭 へ コン トロ ー ル を 移し な さい 、 と いう 意味 で す 。 
この ステ ー ト メン ト を 実行 させ る と 、 現 在 走 っ て いる BASIC テキ スト か ら コ ント ロー ル を 離れ て 、 新 た に テキ スト 
"TEXT 2 "を 読み 出し て 来 て その 先頭 へ ヘコ ント ロー ル が 移り ます 。 プ ログ ラム の CHHAIN が 実行 され る 時 、 変 数 の 値 
と 、DEF EN て で 定義 し た 関数 と は 、CHAIN 先 の プロ グラ ム へ 受渡 され ます 。 
CHAIN コマ ンド の 機能 は 、 "goto "filename"; と し て 捉え そる こと が で きま す 。 


TEXT "ABC" TEXT "DEF" TEXT "GHI" 


Soviets goto "filename" 


CHAIN コマ ンド を 使う と 、 大 き な プ ログ ラム ーー 一 BASIC テキ スト エリ ア を 越え て し まう よう な 巨大 な プロ グラ ム で も 、 
それ を 分 割 し て お いて 上 の よう に 継ぐ こと が で きま す 。 1 つの プロ グラ ム を 終了 し た ら 、 デ ー タ を その まま に し て お いて 、 
次 の プア ログ ラム に 次 々 に CHAIN し て 行く の で す 。 た と そえ ば 、 スモ ー ル ビジ ネス で の 複雑 で 多岐 に わた る デー タ 処 理 を 行 
わな く て は な ら な い 場 合 な ど で は 、CHAIN や 、 この 次 に 出 て 来る SWAP コマ ンド は 、 な く て は な ら な いも の と いえ そま す 。 
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16 プロ グラ ム の SWAP 


SWAP コ マン ド は 、 デ ィ ス ク フ ァ イル 上 の プロ グラ ム を 呼び 出し て 、 オ ー バ レイ 、 リ ンク を 行い その テキ スト に コン 
トロ ー ル を 移し ます が 、 そ の プロ グラ ム を 終了 し た ら 、 も と の プロ グラ ム (SWAP コ マン ド を 行っ た プロ グラ ム ) に 復 
帰す る こと が で きま す 。 こ の 動き は 、 ち ょ うど テキ スト 中 の サブ ルー チン 参照 と 同様 で あり 、 も と の プロ グラ ム へ の 復帰 
は 、SWAP コ マン ド を 行っ た 次 の コマ ンド へ 戻る こと に な り ま す 。 し た が っ て SWAP コ マン ド を 、「gosub filename", 
と し で て 提 た る こと が で きま す 。 

この 動作 を 行う の に 、SWAP コ マン ド を も つ プ ログ ラム テキ スト は 、 SWAP 実 行 時 に 一 時 ディ スク 上 へ 待避 され な く 
て は な り ま せん 。 そ の うえ で 、 テ キス ト エ リア が NEW され 、 サ ププ ログ ラム の 呼び 出し 実行 が 行わ ん 、 サ ププ ログ ラム 
の 終了 後に 、 待 避 し て いた 元 の プロ グラ ム テ キス ト へ 復帰 が 可能 に な る の で す 。SWAP コ マン ド の 一 般 形 は 次 の よう に な 
っ て いま す 。 


SWAP FDd@v, " filename S 


即ち 、 ド ライ ブ g 番 (d—1—4) 中 の 、 ボ リュ ー ム ナン バッ ? 番 の ディ スク 上 に 登録 きれ て いる 、 "filename" TIRE 
する サブ プロ グラ ム を SWAP せ よ 、 と いう 意味 で す が 、 サ ブ プ ログ ラム の 待避 に 先がけ て 行わ れる プロ グラ ム テ キス ト の 
待避 は 、 一 番 最近 DIR コマ ンド を 実行 し て いる ドラ イブ 中 の ディ スク 上 へ 行わ れ ま す 。 従っ て 、 そ の ドラ イブ 中 に は 、 プ 
ログ ラム テキ スト の 一 時 書き 込み が 可能 な ディ スク が セッ ト さ れ て いな けれ ば な ら な いこ と に な り ま す 。 SWAP レベ ル 
は 、 1 レベ ル を 超え て は な り ませ ん 。 

SWAP コ マン ド を 理解 する た め に 、 簡 単 な 例 を と っ て プロ グラ ム フ ァ イル の 動き を 追っ て みる こと に し まし ょ う 。 
DIR 1 コマ ンド を 実行 し て いる と き を 考え て み ま す 。 


現在 テキ スト エリ ア に ある プロ グラ ム ]〕 [プロ グラ ム フ ァ イル " PLAYER") 
10 REM COMPOSER 10 REM CELLO PLAYER 

20 M1 $="A7B6+C3A7A3 " 20 MUSIC M1$,M2$,M3$ 
30 M2 $="B+C+D+E6A3" 30 PRINT" OK?" 

40. M3 $ =" +F6A3+E7" 40 END 

50 PRINT "PLAY THE CELLO" 

60 SWAP FD2 @ 7 , "PLAYER" 

70 PRINT "VERY GOOD" Pet Pepe cA TERRI 


80 END プア ディス ネス ク 上 に あり ます 。 
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は し じ め 、 ' COMPOSER" gz 
キス ト エ リア 内 に あっ て 、 実 行 し 
て いる 。 


行 番号 60 の SWAP コ マン ド で 、 
まず 、 テ キス ト が 、DIR を と っ て 
いる FD 1 中 の ディ スク に 待避 さ 
れ 、 エ リア が NEW さ れる 。 


つづ いて BTX "PLAYER "が 
オー バレ イ 実 行 さ れる 。 メ ロディ 
ー が 演奏 され る 。 


終わ る と 、 待 避 し て いた COM 
POSER が 復帰 し て " VERY GO 
OD" と いい ます 。 


作曲 家 
"PLAY THE CELLO" 


演奏 家 、 メ ロディ ー を ひく 


オー バレ イ 


作曲 家 
"VERY GOOD" 


SS 復帰 
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1.7 予約 語 


BASIC 文 は 了 予約 語 (reserved words) 一 ー キ ネ キー ワー ド と も 呼ば れ ま す ー と 、 そ の オペ ラン ド 、 セ パレ ー タ 、 デ ー タ 
に よっ て 構成 され ます 。 子 約 語 は 、BASIC イ ンタ ー プ リタ が それ を 解釈 し 決め られ た 機能 を 行う 特別 な 語 で あり 、 コ マン 
ド 、 ス テー トメ ント 、 関 数 が それ に 相当 し ます 。 予約 語 は 、 特殊 な 機能 を 実行 させ る た め に 決め られ て いる 語 な の で 、 プ 
ログ ラマ が 、 変 数 名 、 配 列 名 な ど に 用 いる こと が で きま せん 。 表 1 一 1 は 、DISK BASIC MZ-2Z001 の 全て の 了 予約 語 を ア 
ルフ ァ ベ ッ ト 順 に 並べ て 示し て いま す 。( 表 1 — 1 の 子 約 語 の 右 の 数 字 は 参照 ペー ジ を 示し て いま す 。) 


SS 1 一 1 DISK _ BASIC イン ター プリ タ MMZ-2Z001 の 全て の 予約 語 


A ABS-……………… 87 ERL — 40 MON ーー 77 ROPEN/T---------- 80 
APPEND ----------- 29 ERN ーー 39 MUSIC ーー 83 RSI ーーー……-113 
APPEND/T ------- 29 ERROR «ccs 39 NEW ————————-—- 77 RSMODE -----------112 
PE EXP -- 87 NERT nn 81 eege CL 
ATN-- 87 | E FAST 83 |0 OIN ecce 105 RUN «neni 80 
AUTO en 77 FOR 81 OUT -------+----+----- 87 SAVE --------------- 28 

B BLINE ……ー…… 84 | 回 GET --- 81 |[P PAGE/P------------ 86 SAVE/T ------------ 28 
HOOT ss 77 GOSUB 81 PATTERN--------- 84 に PE 

© DBAIN esten 33 GOTO 81 PC nnm 98 SGN - 87 
CHANGE ~~ 83 GPIBM ===- 108 UE 85 SIN - 87 
CHARACTER$ ` 88 . GRAPH 84 POINT " 85 SIZE stents 83 
CHR —— 88 | T [GL eere 94 PORB esr 85 SPACES ーー 88 
CLOSE 35 [pesoen ME BOS 85 SPOL mo d 
CLOSE # ーー……… 3$ IMAGE/P 86 POSITION 84 Bie scene “BY 
CLOSE/T --------- 80 IN Ps essere 87 POS Veeessscenuseee 85 SRQ-- 105 
CLR 83 INPUT seo 80 PPC- -106 STEP. - 81 
CMDR -—— 104 INPUT H 36 PPOL reese 107 STOP cesna 82 
CMDW srecan 103 INPUTZT --——---- Bi PPU- -108 STRE mme 88 
CONSOLE-……ー 83 INT eem eee 87 PRINT emm 80 STRINGS ---------- 88 
CONT eegenen 77 |K KILI seee 35 PRINT f 84 SWAP recon 98 
COPY/P men 86 KLIS eee 77 PRINT/P--—— 86 [Im TAB eren 89 
Cen: 87 |D LCL =- 95 BRIRTZE 80 TAN seen 87 
CSRH 83 LEP TS ones 88 | Ri READ eo 81 TEMP ene 83 
CSRY «eA 83 LEN -- 88 RED- -100 THEN «emn 82 
CURSOR sae 83 LET =: 80 RED/ -102 TI$ - 83 

D DATA «comm 81 LIMIT 85 REM een 82 TO - 81 
DGL enano 96 LINE 84 REN enn E TED oret m 
DEF FN------------ 82 LIST enn 77 RENAME ----------- 32 |U UNLOCK ---------- 31 
DEF KEY ーー…ー 82 LIST/P cnn T3 RESET «e 84 USB een 86 
DELETE =-=- 32 LLO nme 06 RESTORE-……- 81 | V VAL enn 88 
DIM ーー 82 LN 88 RESUME ----------- 40 VERIFY ------------- 77 
DIR oec 26 LOAD ーー 29 RETURN ----------- 81 | W WOPEN +---------- 34 
DIR/P ーー 27 LOAD/T ----------- 29 REW------------------ 83 WOPEN/T ---------- 80 

E END 82 LOCK «e 91 EIGHT$ -—— 88 WRT enr 99 
EOIR 108 LOG ーーーー gr END eoe 88 WRT/ - 101 
EOIW -------------108 MID$ ---------------- 88 ROPEN #----------- 36 | (X XOPEN #------------ 37 
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1.8 初期 設定 値 に つい て 


DISK BASIC イ ンタ ー プ リタ MZ-2Z001 が IPL に よっ て 起動 し た 時 の 、 シ ステ ム 変 数 等 の デフ ォ ル ト 値 は それ ぞ れ 次 の 
よう に 設定 され ます 。 


B キー ボー ド 関 係 
D 動作 モー ド : ノー マル モー ド 
2) 小娘 字 の 入力 は ノー マル モー ド の シフ ト ポ ジ ショ ン 
3) デフ ァ イ ナ ブル ファ ンク ショ ン キ ー は 、BTX "AUTO RUN" に よっ て 次 の よう に 設定 され ます 。 


MIMIululululululul 
Mc て て て て て て て て 


E 
E 
E 
(E 
E 
AE 
E 
E 
E 
D 
N 
E 


zmm-ormmmmmmmm 


BICRT 7*4 47v 4 BR 
1) キャ ラク タデ ィ ス プレ イモ ー ド : ノー マル (バッ ク グ ラウ ンド : 黒 ) 
2) キャ ラク タ 表 示 桁 数 : 40 キ ャ ラク タン 行 
3 キャ ラク タ 表 示 ス クロ ー リ ング エリ ア : 最大 (第 0 行か ら 第 24 行 ) 
4) グラ フィ ッ タグ ディ スプ レイ ス 人力 モー ド ペ ー ジ : ペー ジ 1 
グラ フィ ッ ク デ ィ ス プレ イ 出 力 モ ー ド ペー ジ : 全 ペ ー ジ と も OFF 
ポジ ショ ン ポ イン タ : POSH= 0 POSV=0 
5) グラ フィ ッ ク デ ィ ス プレ イリ ゾ リ ュー ショ ン モ ー ド : 320X200 ド ッ ト ノ 画面 
画 内 蔵 時 計 
TI$ =" 000000 " で 初期 化し て スタ ー ト する 。 


画 音 楽 機能 

1) テン ポ の デフ ォ ル ト 値 : 4 (PRAF YR., Moderato) 
2) 音 長 の デフ ォ ル ト 値 : 5 (4 分 音符 、」) 

画 そ の 他 


1) 配列 変数 は 全て 未定 義 
2) BASIC テ キス ト エ リア の 上 限 : $FFFF 番 地 (即ち LIMIT MAX 状態 ) 
3) タプ ブ セット : 5 キャ ラク タ 毎 


DISK BASIC MZ-2ZOO1 の _| Chapter 
新規 コマ ンド と ステ ー ト メン ト 2 


= OS. DISK BASIC MZ-2Z00 1 に つい て 、 BASIC MZ-1Z00 1 に な い 新 規 
コマ ンド と ステ ー ト メン ト の 文法 を 解説 し ます 。 


コマ ンド と ステ ー ト メン ト の 書式 


圏 コ マン ド お よび ステ ー ト メン ト を 、 ア ルフ ァ ベ ッ ト 小 文字 、 反 転 文字 で 表記 す 
る こと は で きま せん 。 

圏 オ ペラ ンド 中 で プロ グラ マ が 指定 すべ き 箇 所 は 、 イ タリ ッ ク 体 で 示し て いま す 。 

圏 か ぎ カ ッ コ < > 中 の 要素 は 、 省 略 あ る い は 、 任 意 回 の 繰り 返し 記述 が 可能 な 
要素 で ある こと を 示し て いま す 。 

較 セパ レー タ (コロ ン 、 セ ミコ ロン な ど ) は 、 決 め ら れ た 位置 に 正しく 置か な く 
て は な り ま せん 。 
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21 コマ シン 


2.1.1 DIR 


DIR <FD d> 
d en ドラ イプ 番号 : d=1-~4 
FDg で 指定 する ドラ イブ 中 の ディ スク の ディ レク トリ を CRT ディ スプ レイ 上 に 表示 し ます 。 


(DIR : directory) 
ディ レク トリ と は 、 該 当 デ ィ ス ク に 上 既に 登録 きれ て いる ファ イル の 情報 を 得る も の で あり 、 次 の 各 
デー タ が 表示 され ます 。 


(1) 


(2) 


ディ スク の ボリ ュー ム ナ ン バ 

スレ ー プ ディ スク に つい て は その ボリ ュー ム ナ ン バ (イニ シャ ライ ズ 時 に 決め た ディ スク 
号 ) を 、 マ スタ ー デ ィ ス ク で あれ ば "MASTER "を 表示 し ます 。 

空き セ モク タ の 総数 

ファ イル を 1 つる も 登録 し て いな いえ ス レーブ プ デ ィ ス ク は 空き セク タ 数 は 1072 セ クタ です 。 


(3) 登録 され て いる 全て の ファ イル 


ディ ング 


各 フ ァイル に つい て 、 フ ァイル モー ド 、 ロ ッ ク プ アン ロッ ク 、 フ ァイル 名 を 示し ます 。 
ファ イル モー ド は 4 種類 あり 、 次 の 各 3 娘 字 の コー ド に よっ て 区 別 き され ます 。 
BTX……… BASIC テ キス ト フ ァイル 


BSD……… BASIC シ ー ケ ン シ ャ ル ア ク セス ・ デ ー タ ファ イル 
BRD…… ド … BASIC ラ ンダ ム ア ク セス ・ デ ー タ ファ イル 
OBI series オデ ジェ クラ ァイル 


ロッ ク プ アン ロ ッ ク は 、 ア スタ リス ク " 米 " に よっ て 区 別 さ きれ ま す 。 即ち 、 フ ァイル モー 
ド に 続け て ok" の 表示 され て いる ファ イル は ロッ ク さ れ た (固定 され た ) ファ イル で す 。 
ロッ ク さ れ だ た ファ イル は 、 そ の 状態 で は デー タ の 追加 、 フ ァイル の 削除 、 フ ァイル 名 の 変 
更 が 禁止 され ます 。 

ファ イル 名 は 、 フ ァイル 登録 時 に 指定 し た 名 前 で 、 フ ァイル の 呼び 出し は いつ も その 名 前 
に よっ て 行い ます 。 

ディ レク トリ 表示 の 順 座 は 必ず し も ファ イル 登録 順に な る と は 限り ませ ん 。 


トリ 表示 は 、 フ ァイル を 1 画面 ぶん (20 個 の ファ イル ) 表示 する と 、 そ こ で 一 旦 停止 し て 、 


カー ソル が 現れ ます 。 更 に 続け て ディ レク トリ 表示 を 行わ せる に は | CR | キー を 押し ます が 、 そ 
の 状態 か ら 他 の コマ ンド へ 移る こと も で きま す 。 

LOAD コ マン ド 、RUN コ マン ド の 実行 は 、 デ ィ レ クト リ 表 示 上 で カー ソル を 該当 ファ イル の 行 へ 移 
動き せ 、 フ ァ ン クシ ョ ン キ ー(BTX "AUTO RUN" に よっ て LOAD コ マン ド は に RUN コ 


マン ド は 


Fl | に 定義 され て いま す ) を 押す こと に よっ て 簡単 に 行う こと が で きま す 。 


な お 、 こ の DIR 命 令 を 実行 する と 、 グ ラフ ィ ッ ク デ ィ ス プレ イ 出 力 モ ー ド ペー ジ は 、 全 ペー ジ と も 


OFF と な 


り ま す 。(DIR プ P も 同様 ) 
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図 2 一 1 は 、DIR FD 1 コマ ンド に よっ て 、 マ スタ ー デ ィ ス ク の ディ レク トリ を 表示 させ た 1 例 で 
す 。( 実 際 の マス ター ディ スク の 内 容 は 、 こ の 表示 内 容 と 若干 異な る 場合 が あり ます 。) 
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D 2—1 
2.1.2 DIR/P 
書 R DIR <FD g> /P. 
deee IS E de EE d=1~4 
機 能 ディ スク の ディ レク トリ を ライ ンプ リタ 上 へ プリ ント アウ トミ させ ます 。 この 場合 、CRT デ ィ ス プレ 


イ 上 へ の 表示 は 行わ れ ま せん 。 
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2.1.8 SAVE 


SAVE <FDd@v,> "file name" 

deese ドラ イプ ブ ナンバ: ENEE 

qi Eege AvV-FHrAAM* KR) EE EE 
現在 BASIC テ キス ト エ リア に ある プロ グラ ム テ キス ト を 、 フ ァイル 名 を 指定 し て ディ スク 上 へ モ 
ー ジ し ます 。 
SAVE コ マン ド を 実行 する こと に よっ て ディ スク 上 に 1 つの BASIC テ キス ト フ ァイル (BTX) が 
登録 され ます 。 そ の 際 、 オ ペラ ンド に 必ず ファ イル 名 と な る スト リン グ デ ー タ を 記述 し な く て は な 
ら ず 、 ク ォ ー テ ーション マー ク で 囲っ た 16 文 字 以 内 の スト リン グ で 指定 し ます 。 
オペ ラン ド FD gd9@ ぁ ゎぁ は デフ ォ ル ト 可能 な 要素 で あり 、 省 略 さ れ た 場合 は 、 デ フォ ルト ドラ イブ ( 即 
ち 、 最 後に DIR FDg コ マン ド に よっ て 指定 し た ドラ イブ g) 中 に ある ディ スク 上 へ セー プ ブ を 行い 
ます 。 
フロ ッ ピ ー デ ィ ス ク ド ラ イブ が 正しく 接続 され て いな か っ だ たり 、 デ ィ ス ク の ライ ト プ ロ テク トシ ー 
ル が 付い て いる 場合 や 、 す で に ある ファ イル 名 を 指定 し よう と し た 場合 な ど 、 そ れ ぞ れ エ ラー が 発 
ELEF 
プロ グラ ム テ キス ト を カセ モット テー プ 上 へ セー ブ す る に は 、SAVE/T コ マン ド を 用 いま す 。 
図 2 一 2 は 、SAVE コマ ンド に よっ て 、 ス レー プ ブ デ ィ ス ク 上 に 新しく 1 つの BASIC テ キス ト フ ァ 
イル が 登録 きれ る も よう を 示し て いま す 。 左 が 、SAVE コ マン ド を 行う 前 の ディ レク トリ 表示 、 右 
が SAVE コ マン ド の 実行 と デ ギィ レク トリ 表示 で あり 、BTX フ ァイル "Statistic proc. ' が 登録 され 
た の が わか り ま す 。†) 


D ディ レク トリ 表示 され る ファ イル の 順番 は 、 必 ず し も ファ イル の 登録 順に な る と は 限り ませ ん 。 


2.1.4 LOAD 


2.1.5 APPEND 


se 
OB 
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LOAD <FDd@v, > "file name" 


, ドラ イプ ナジ シバ 3: d= 1~—4 

pee スレ ー プ ディ スク ・ ボ リュ ー ム ナン ババ 
BASIC テ キス ト エ リア を クリ ア し て 、 デ ィ スク 上 に 登録 され て いる BASIC テ キス ト を ロー ド し ま 
す 。 


ロー ド す べき ファ イル は 、FD d @ v に よる ドラ イブ と ボリ ュー ム ナ ン バ の 指定 、 フ ァイル 名 の 
記述 に よっ て 指定 され ます 。 デ フォ ルト ドラ イブ を 指定 する 場合 は FD d e v は 省略 で きま す 。 
ファ イル 名 は 、 登 録 き れ て いる ファ イル 名 を 省略 な し で 指定 し な けれ ば な り ま せん 。 

ディ レク トリ 表示 を 利用 し て カー ソル 操作 を 行う と 、 フ ァ ン クシ ョ ン キ ー10 番 を 用 いて ワン タッ チ 
で ファ イル ロー ディ ング を 行う こと が で きま す 。 

だ と えば 、 デ ィ レ クト リ 表 示 上 の 次 の ファ イル 


BTX " Statistic proc. " 
を ロー ド す る に は 、 カ ー ソ ル を 次 の よう に この 行 の 先頭 へ 持っ て 行き 、 
Sp BTX " Statistic proc." 
dcn 


ファ ンク ショ ン キ ー10 番 を 押し ます 。DEF KEY 文 に よっ て 新た に 定義 し 直し て いな けれ ば 、 フ 
テ ァ ン クシ ョ ン キ ー10 番 は 、LOAD 1 が 定義 きれ て いる の で 、 表示 は 、 

LOAD " Statistic proc." 
と な り 、" つ "記号 の ファ ンク ショ ン 、 即 ち キ ャ リッ ジリ ター ン も 実行 きれ ます 。 従っ て ワン タッ 
チ で LOAD コ マン ド を 与え た こと に な る わけ で す 。 
み カセット テー プ 上 の プロ グラ ム テ キス ト を ロー ド す る に は 、 LOAD/T コマ ンド を 用 いま す 。 


APPEND <FDd@v, > "file name" 
jones ドラ イプ ブ ナンバ: d=1~4 
— メメ セー プ デ の ィ スス み ・ ポ リサ リューム サナ シッ 
現在 BASIC テ キス ト エ リア に ある プロ グラ ム テ キス ト と 、 指 定 し た ファ イル の プロ グラ ム テ キス ト 
を 混ぜ 合わ せま す 。 
指定 し た ファ イル の 中 に 、BASIC テ キス ト エ リア に ある プロ グラ ム と 同行 番 号 を 持つ も の が あれ ば 、 
テキ スト エリ ア 上 の 行 が 対応 する ファ イル 上 の 行 と 置き 換え られ ます 。 
APPEND FD2@47, ' TEXT-B" 
ea bases テキ スト エリ ア に 次 の プロ グラ ム が 格納 され て お り 
10 A=345 
30 S=10*A 
40 PRINT S 


30 


2.1.6 RUN 
= xt 
機 AE 
解 説 


ドラ イブ ナン バ 2 番 中 の スレ ー プ ディ スク : ボリ ュー ム ナ ン パ バ 47 番 上 に ある ファ イル 名 
"TEXT-B "の 内 容 が 次 の と き 
20 B=789 
30 S=3>*A-B 
50 END 
APPEND 実 行 後 の テ キス ト エ リア 内 の プロ グラ ム は 次 の よう に な り ま す 
10 A=345 
20 B=789 
30 S=3A-B 
40 PRINT S 
50 END 


RUN <FDd@v, > "file name" 


dee F247T»»3:d21-—4 
Qe スレ ー プ ディ スク ・ ボ リュ ー ム ナン バ 
" file name" = BTX フ ァイル まだ た は OBJ フ ァイル 


BASIC テ キス ト エ リア を クリ ア し て 、 デ ィ ス ク 上 に 登録 き ミ きれ て いる BASIC テ キス ト を ロー ド し 、 
続け て その 先頭 か ら プ ログ ラム を 実行 し ます 。 
OBJ ファ イル (機械 語 オ プ ジ ェ クト ファ イル ) へ の RUN コマ ンド の 実行 は 、DISK BASIC の 使 
用 を や め 、 該 当 OBJ ファ イル に コン トロ ー ル を 移す こと に な り ま す 。 
BTX フ ァイル に 対し て RUN コマ ンド を 与え る と 、 次 の マル チ ス テー トメ ント 、 

LOAD "file name" : RUN 
を 実行 し た の と 同じ く 、 フ ァイル の ロー ド に 続い て 、 そ の プロ グラ ム の 先頭 か ら 実行 が 行わ ん ます 。 
RUN コマ ンド は 、 フ ァ ン クシ ョ ン キ ー 1 番 に 定義 きれ て いる の で 、LOAD コマ ンド と 同様 に カー 
ソル 操作 と 共に 使用 する と 便利 で す 。 
OBJ ファ イル を RUN させ る と 、DISK BASIC か ら 、 該 当 す る 別 の シス テム プロ グラ ム へ ヘコ ント 
ロー ル が 移り ます 。 マ マスター ディ スク 上 の 次 の 2 つの ファ イル は 、 ユ ー テ ィ リ ティ オブジェ クト フ 
ァイル で あり 、 こ の RUN コ マン ド に よっ て 起動 きれ ます 。 

OBJ* "Filing CMT" 

OBJ "Utility " 
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2.2 ファ イル コン トロ ー ル 文 


2.2.1 LOCK 
d x LOCK <Dd@v,> "file name" 
deeem ドラ イプ ブ ナンバ: g ニ ュー4 
pirimi スレ ー プ ディ スク ・ ボ ポリ ュー ム ナ ン バ 
指定 し た ファ イル を ロッ ク し ます 。 
解 説 ファ イル を ロッ ク す る と 、 そ の ファ イル は ディ スク 上 に 固定 され た 形 に な り 、 何 ら か の 変更 要求 が 


来 て も 受け つけ な く な り ま す 。 
た と えば 、DELETE、RENAME、 ラ ンダ ム ア ク セス ファ イル (BRD) の 場合 の デー タ 書 き 込 み 
が 禁止 され ます 。 壊し た く な い フ ァイル や 変更 し た く な い フ ァイル に は ロッ ク を か け て お く よ う に 
し ます 。 
ロッ ク さ れ だ た ファ イル は 、 デ ィ レ クト リ 表 示 で 、 フ ァイル モー ド 記 号 に つづ いて " 来 " マー ク が 付 
きま す 。 
だ と え そば 、 

LOCK "Statistic proc. " 
コマ ンド の 実行 に よっ て ファ イル が ロッ ク さ れ 、 デ ィ レ クト リ 表 示 は 、 

BTX> "Statistic proc." 


ファ イル ロッ ク を 示す 記号 


と な り ま す 。 
ディ スク の ライ ト プ ロ テク トシ ー ル は 、 ハ ー ド 機構 に よっ て ディ スク へ の デー タ 書き込み を 禁止 す 
る も の で す 。 
2.2.2 UNLOCK 
E xt UNLOCK <FDd@uv,> "file name " 
diee RRA TH vss i d=1—4 
goire スレ ー プ ディ スク ・ ボ リュ ー ム ナン ババ 


bi 能 指定 し た ファ イル の ロッ ク を 解除 し ます 。 
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2.2.3 RENAME 


| 書 式 RENAME <FDd@v,> "file name" , " new file name " 
ji sien ドラ イブ プ ナンバ: g ニ ュー4 
—— スレ ー プ ディ スク ・ ポ リュ ー ム ナン ババ 
"new file name 77 新規 の ファ イル 名 
機 _ 能 ファ イル 名 の 変更 は 、 現在 の ファ イル 名 、 新 し い フ ァイル 名 の 順に 指定 し ます 。 新 し い フ ァイル 名 
は 、 そ の ディ スク 上 に それ と 同じ ファ イル 名 で 同一 の モー ド の ファ イル が 存在 すれ ば エラ ー と な り 
ます 。 
ロッ ク さ れ て いる ファ イル に つい て は RENAME 命 令 は 禁止 され ます 。 


2.2.4 DELETE 


書 式 DELETE <FDd@v,> "file name" 
deeem] ドラ イプ ナン バ : dg =1~4 
eos ire nme スレ シー ププ ディズ スク ・ ポ リュ ー ム デン 
機 能 指定 し た ファ イル を ディ スク 上 か ら 削 除 し ます 。 
858 å B ロッ ク さ れ て いる ファ イル は 、DELETE コ マン ド が 禁止 され ます 。 ロ ッ ク さ れ て いる ファ イル を 


削除 する 場合 は 、UNLOCK コ マン ド を 実行 し た 後に 、DELETE コ マン ド を 実行 し ます 。 


2.2.5 CHAIN 


2.2.6 SWAP 
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CHAIN <FDd@v,> "file name" 
d CCCOCC ドラ イブ ナン バ :g ニ ュー4 
pee スレ ー プ ディ スク ・ ボ ポリ ュー ム ナ ン ^ ヾ 
現在 実行 中 の プロ グラ ム テ キス ト か ら 、 デ ィ ス ク フ ァ イル 上 の 別 の プロ グラ ム テ キス ト へ プロ グラ 
ム 実 行 を チェ イン し ます 。 
CHAIN 文 は 、 プ ログ ラム 中 で RUN TI file nme" コマ ンド を 実行 し た の と 似 た 働き が あり ます が 、 
チェ イン する 際 、 も と の プロ グラ ム で 使用 し た 変数 、 配 列 等 の 内 容 は その まま 新しい プロ グラ ム へ 
Intt. 従っ て 、CHAIN Xi3, GOTO Ir 廊 と 対照 し て GOTO" file name" の イメ ー ジ と 
し て 捉え る こと が で きま す 。 
100 CHAIN FD2@7, "TEXT B" 
“we ドラ イブ 2 番 中 の ディ スク が スレ ー プ ディ スク の ボリ ュー ム 7 番 で あれ ば 、 そ の 中 の BT 
メ フ ァ イル "TEXT BY へ プロ グラ ム 実 行 を チェ イン せよ 、 と いう ステ ー ト メン ト で す 。 
200 CHAIN "Process 3 " 
pun デフ ォ ル トド ライ ブ 中 の ディ スク に 登録 きれ て いる 、BTX フ ァイル " Process 3 "へ プ 
ログ ラム 実行 を チェ イン し ます 。 


SWAP <FDd@v,> "file name" 
d asses ドラ イプ ブ ナンバ: g テ ュー4 
pem スレ ー プ ディ スク ・ ボ リュ ー ム ナン バ 
プロ グラ ム 実 行 を スワ ッ プ し ます 。 
SWAP 廊 を 実行 する と 、 最 初 に 現在 実行 中 の プロ グラ ム テ キス ト を デフ ォ ル トド ライ ブ (最後 に DIR 
FDg コ マン ド を 実行 し た ドラ イブ ) 中 の ディ スク に 一 旦 待避 (一 時 、 記 憶 す る だ け で 、 フ ァ イ 
ル を 作る わけ で は あり ませ ん ) させ 、 オ ペラ ンド に 指定 し た BTX ファ イル へ ヘコ ント ロー ル が 移さ 
れ ま す 。 ス ワッ プ さ れ た プロ グラ ム が 終了 し た ら 、 も と の プロ グラ ム テ キス ト を テキ スト エリ ア へ 
RL, SWAP 文 の 次 の 実行 文 か ら プ ログ ラム 実行 を 継続 し ます 。SWAP it, GOSUB" file 
name" の イメ ー ジ で 捉え る こと が で きま す 。 た だ 、 ス ワッ プ ' さ れ だ た ファ イル か ら の 復帰 は 、RET 
URN 文 で は な く 、END 文 あ る い は 、 テ キス ト の 終わ り に より ます 。 
SWAP 文 は ネス ティ ング させ る こと が で きま せん (即ち レベ ル は 1)。 スワ ッ プ され た テキ スト 内 で 
BEICSWAPX*RITLEDLETAL, Error 25 が 発生 し ます 。 
300 SWAP FD3@27, "TEXT S-R1" 
RES CEPS de ドラ イブ 3 番 中 の ディ スク が ボリ ュー ム ナ ン バ 27 番 の スレ ー プ ディ スク で あり 、 そ 
の 上 に BTX フ ァイル "TEXT S-R1" が あれ ば 、 現在 実行 中 の プロ グラ ム を デフ ォ ル ト 
ドラ イブ 中 へ 待避 し 、" TEXT S-R1" を ロー ディ ング し ます 。 続い て 、 そ の 先頭 か ら 
プロ グラ ム を 実行 し ます 。 
END 文 、 プ ログ ラム テキ スト の 終端 に よっ て 実行 を 終了 し た ら 、 も と の テキ スト を 、 デ 
フォ ルト ドラ イブ か ら 復 帰 さ せ 、SWAP 文 の 次 の 実行 文 か ら 継続 し て プロ グラ ム 実 行 を 
行い ます 。 
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一 BASIC シ ー ケ ン シ ャ ル ア ク セス デー タフ ァイル (BSD) コン トロ ー ル 文 


2.2.7 WOPEN # 


WOPEN#1, <FDd@v,> "file name" 


e "e 


2.2.8 PRINT # 


= xt 
機 能 
解 説 


Dee ロジ み カル レナ シッ 5 L2] —127 
denen ドラ イデ ナシ クッ: d=1—~4 
—À スレ ー プ ディ スク ・ ボ ポリ ュー ム ナ ン バ 


1 つの BASIC シー ケン シャ ル ア ク セス デー タフ ァイル (BSD) を 作成 する た め に 書き 込み 用 ファ 
イル を オー プン し ます 。 (WOPEN : write open) 
WOPEN# 文 は 、 シーケンシャル デー タ 登 録 の た め の 準 備 を 行う 文 で あり 、 フ ァイル アク セス 用 ロ 
ジ カ ル ナ ン バ の 定義 と 、 フ ァイル 名 の 指定 を 行い ます 。 
510 WOPEN#3, FD2@10, "SEQ DATA1" 
Wee ドラ イブ ナン バ 2 番 中 の スレ ー プ ディ スク : ボリ ュー ム ナ ン バ パ 10 番 上 に 、BSD "SEQ 
DATA1 "を 登録 する た め 、 ロ ジ カ ル ナ ン バ 3 番 を 書き 込み オー プン し ます 。 


PRINT #1, dis Sadis emem » dn? 
| ロジ カル ナン > ヾ 
dire 書き 込み デー タ 並 び 


WOPEN# 文 に よっ て 書き 込み オー プン され て いる ファ イル 上 へ 、 オ ペラ ンド で 指定 する デー タ を 順 
次 書き 込ん で 行き ます 。 
書き 込み を 行う 対象 と な る BSD ファ イル は 、 ロ ジ カ ル ナ ン バ キ 7 に よっ て 指定 し ます 。 デ ィ ス ク 
ファ イル は 、 前 述 (P.14) の よう に 、10 ま で 同時 に オー プ " ン させ る こと が で きる の で 、 目 的 と する 
ファ イル を 、 そ れ を オー プン し た 時 の ロジ カル ナン バ で 正しく 指示 し な く て は な り ま せん 。 
510 WOPEN#3, FD2@10, "SEO DATA 1" 
530 FOR I=1 TO 30 
540 PRINT #3, A(D, B(D, A$ (I 
550 NEXT I 
ee BSD ファ イル "SEQ DATA1" を ロジ カル ナン バ 3 番 に 書き 込み オー プン し 、I を 1 
か ら 30 ま で 変え な が ら 順 次 、At) BO). A$ (D の 各 配 列 要 素 の 内 容 を 書き 込ん で 行 
きま す 。 全部 で 90 個 の デー タ を 書き 込む こと に な り ま す 。 
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2.2.9 KILL 
a 式 KILL #1 
Dee ロジ カル ナン ババ 
機 能 ロジ カル ナン バ 7 番 に オー プン し た BSD フ ァイル の 登録 を キル し ます 。 即ち 、WOPEN# 文 に よ 
っ て ファ イル 作成 を 準備 し 、 あ る い は それ に 続い て PRINT# を 実行 し て いる ファ イル の 正式 登録 
を 途中 で キャ ン モ セル し ます 。 


"o 説 ロジ カル ナン ババ を 指定 し な い 場 合 は 、 現 在 作成 中 の ファ イル の 正式 登録 を キャ ン セ モル する と と も に 、 
すでに オー プン され て いる すべ て の ファ イル を クロ ー ズ し 、 そ の ロジ カル ナン バ を すべ て 未定 義 番 
号 に 戻し ます 。 
な お KILL 命令 は 直接 実行 命令 と し て 使用 で きま す の で 、 デ ィ ス ク を 交換 する 直前 に この 命令 を 実 
行き せ 、 す べ て の ファ イル を クロ ー ズ する こと に よっ て ディ スク 内 容 の 破壊 より 保 護 す る こと が で 


きま す 。 
2.2.10 CLOSE 
書 式 CLOSE 41! 
Dee ロジ カル ナン > ヾ 
機 能 ロジ カル ナン ババ 7 番 に オー プン され て いる ファ イル を クロ ー ズ し て 、 こ の 番号 を 未定 義 番 号 に 戻し 
ます 。 


Soo B CLOSE 文 は 、 次 の よう に 、3 種 類 の ロジ カル オー プン に 対し て 実行 され ます 。 
B WOPEN# に 対す る CLOSE 
WOPEN # PRINT a 文 に よる シー ケン シャ ル ア ク セス デー タ の 書き 込み を 終了 し て 、 こ の 
ファ イル を 正式 に ディ スク 上 へ 登録 し ます 。 使 用 し た ロジ カル ナン バ を 未定 義 に 戻し ます 。 
B ROPEN# に 対す る CLOSE 
ROPEN # に よっ て デー タ 読 み 出 し オー プン し た BSD フ ァイル を クロ ー ズ し 、 使 用 し た ロジ カ 
ルナ ン バ を 未定 義 に し ます 。 
B XOPEN# に 対す る CLOSE 
XOPEN # に よっ て デー タ 書 き 込み 読み 出し オー プン し た BRD フ ァイル を クロ ー ズ し 、 使 用 
し た ロジ カル ナン バ を 未定 義 に し ます 。 
ロジ カル ナン ババ を 指定 し な い 場合 は 、 現在 オー プン され て いる すべ て の ファ イル を クロ ー ズ し 
て 、 そ の ロジ カル ナン ババ を すべ て 未定 義 番号 に 戻し ます 。 
510 WOPEN# 3, FD2@10, "SEQ DATA 1" 
530 FOR I=1 TO 30 
540 PRINT #3, A(D, BO, A SO 
550 NEXT I 
560 CLOSE #3 
pence 1155600 CLOSE s 娘 に よっ て 、 行 番号 510 一 550 の ルー プ ' で デー タ を 書き 込ん で 行 
っ た BSD フ ァイル "SEQ DATA 1" を 正式 に ファ イル 登録 し 、 ク ロー ズ し ます 。 
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2.2.11 ROPEN # 


書 式 
解 説 


2.2.12 INPUT it 


ROPEN#/, <FDd@v,> "file name" 


7… ロジ カル ナン ババ: 7 =1~127 
dee ドラ イプ ナシ 2 マミ メー1 エ ュー4 
の て ツー スレ ー プ ディ スク ・ ボ リュ ー ム ナン ババ 


BASIC シー ケン シャ ル ア ク セス デー タフ ァイル (BSD) 中 の デー タ を 読み 出す た め に ファ イル を 
オー プン し ます 。(ROPEN : read open) 

ROPEN# Xli, シー ケン シャ ル な デー タ 読 み 出 し を 行う た め の 準 備 で あり 、 読 み 出 すべ き フ ァ イ 
ル を 指定 し (<FDd@v,>" file nime" に よっ て 指定 し ます ) それ を 、 ロ ジ カ ル ナ ン バ 7 番 に 設定 
し ます 。 


INPUTS 1, v, Ss Vg 09 » Us 
Dee ロジ カル ナン > で 
pi SS で 入力 並び > BRE だ は 配列 要素 


ROPEN# 文 に よっ て 、 読 み 出 し オー プン され て いる BSD ファ イル の 先頭 デー タ か ら 順 次 デー タ 
を 読み 出し 、 オ ペラ ンド の 入力 並び へ 代入 し ます 。 
デー タ の 読み 出し を 行う ファ イル は 、 ロ ジ カ ル ナ ン バ 7 番 に ROPEN# 文 を 実行 し て いる ファ イル 
に な り ま す 。READ 一 DATA 文 の 場合 と 同様 に 、 デ ー タ と 、 入 力 並び の デー タ 型 が 一 致し な いと エ 
ラー が 発生 し ます 。 
700 ROPEN #50, FD2@10, "SEQ DATA 1" 
710 FOR I=1 TO 30 
720 INPUT #50, AA(I), BB(D, AA$ (I) 
730 PRINT/P " #No.";AA(I), " Vol." ; BB(I) , "Name: " ; AA$ (I) 
740 NEXT I: CLOSE #50 
sume misc BSD フ ァイル "SEQ DATA 1 "(ドラ イブ 2 番 中 の ポリ ュー ム 10 番 の スレ ー プ ディ 
スク 内 ) に 登録 きれ て いる デー タ BATES 7200INPUT # XT 3 個 ず つ 読 み 出 し 、 そ の 
値 を プリ ンタ に 整理 し て 打ち 出し て 行き ます 。 
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画 BASIC ラ ンダ ム ア ク セス デー タフ ァイル (BRD) コン トロ ー ル 方 


2.2.13 XOPEN# 


書 式 XOPEN SI, <FDZ@ ゎ ,> "file name" 
T saivemeteny ロジ カル ナン ババ : 1 =1~127 
de ドラ イオ イプ ナ シン パパ ミ マー エー4 
— スレ ー プ ディ スク ・ ポ リュ ー ム ナン バ 
機 能 1 つの BASIC ラン ダム アク セス デー タフ ァイル (BRD) を オー デン し て 、 ラ ンダ ム ア ク セス デー 
タ の 書き 込み 読み 出し オー プン (クロ ス オ ー プ ン ) を 行い ます 。 (XOPEN: cross open) 
解 。 説 XOPEN# XI 1 つの BRD ファ イル の 新規 登録 ある い は 、 既 に ある BRD か ら の デー タ 読 み 出 
し 、 或 い は 新しい デー タ の 書き 込み の 準備 を 行い 、 ロ ジ カ ル ナ ン バ 7 番 を 、 フ ァイル アク セス 用 に 
定義 し ます 。 


2.2.14 PRINT a ) 


ab 式 PRINT # (toi, di 6d» » の > 
T wees ves ロジ カル ナン ババ 
nee デー タ 要 素 ナ ン バ 
di «inim 書き 込み デー タ 普 び 
hit SE XOPEN # 文 に よっ て クロ ス オ ー プ ン さ れ て いる BRD ファ イル の 要素 ヵ 番 か ら 、 書 き 込み デー タ 


並び カー み の 各 デー タ を 書き 込み ます 。 

解 E 出 カ デー タ 並 び が 1 個 の 場合 は 、 要 素 (element) ヵ 番 に その デー タ が 書き 込ま れ ま す が 、 複数 置か 
れ た 場合 は 、 み を 要素 ヵ 番 に 、gz を 要素 ヵ 十 1 番 へ と 順次 書き 込ま れ ま す 。 ラ ンダ ム ア ク セス デー 
タフ ァイル の 個々 の 要素 は 、 す べ て 32 バ イト 固定 長 で ある の で 、 ス トリ ング デー タ の 登録 の 場合 、 
32 キ ャ ラク タ を 越す 分 は 、 無 効 と な る の で 注意 を 要 し ます 。 

BRD ファ イル に デー タ を 書き 込む に は 、 デー タ 要 素 ナ ン バ を 指定 し て そこ へ デー タ を 書き 入れ ます 
が 、 そ の 要素 ナン バ を 大 きく する 毎 に その BRD の サイ ズ は 大 きく な っ て 行く こと に な り ま す 。 
360 XOPEN #73, "DATA R73" 
370 PRINT #73 (22) , R$(22) , CX 
380 PRINT 373(9). A(9) , A(10) , R$ (11) 
390 CLOSE #73 
eH 行 番号 370 の PRINT#( ) XT, BRD ファ イル "DATA R73" の 要素 22 番 に R $ 
(22) の 内 容 が 、 要 素 23 番 に 、 変 数 CX の 内 容 が 書き 込ま れ 、 行 番号 380 で 、 要 素 9 番 
に 、A(9) 、 要 素 10 番 に A(10) 、 そ し て 要素 11 番 に R $ (11) の 内 容 が それ ぞ れ 書き 込ま れ 
る こと に な り ま す 。 
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2.2.15 INPUT#( ) 


B x INPUT #1 (n) > vi G02, =e Ge? 
Loca ロジ カル ナン ババ: 1 =1~127 
nes デー タ 要 素 ナ ン バ 
— 入力 並び : 変数 また は 配列 要素 
5t — RE XOPEN # 文 に よっ て クロ ス オ ー プ ン さ れ て いる BRD ファ イル の 要素 ヵ 番 か ら 登録 きれ て いる デ 
ー タ を 入力 並び へ 読み 出し ます 。 


Eoo B 入力 並び が 1 個 の と き は 、 要素 ヵ 番 の デー タ が 変数 また は 配列 要素 』 に 読み 出さ れ ま す が 、 複 数 個 
ある 場合 は 、 要 素 ヵ 番 の デー タ が ぁ ヵ に 、z 十 1 番 の デー タ が ぁ に 、 と 順次 読み 出さ れ ま す 。 
410 XOPEN #74, "DATA BRD4" 
420 FOR J=1 TO 20 
430 INPUT #74 (J2), A(J) 
440 NEXT J 
450 CLOSE #74 
aigan 行 番号 430 で 、BRD ファ イル "DATA BRD4 "の 要素 2 一 40 の 偶数 番 要 素 か ら 数 値 デ 
ー タ を 読み 出し 、 数 値 配列 要素 A (J) に それ ぞ れ 代入 し て いま す 。 


2.2.16 IF EOF(#) THEN 


E 式 IF EOF(#/) THEN Ir (また は statement) 
leee Im] ジ カ ル ナ ラク ジマ 
Dr 参照 行 番号 


BSD ファ イル に 対し て INPUT# 娘 を 実行 し た と き 、 あ る い は BRD ファ イル に 対し て INPUT st 
( ) 廊 を 実行 し た と き に 、 ア ウト オプ ファ イル が 発生 し た 場合 エラ ー は 発生 せ ず 、 入 力 並 びに は 、 
0 まだ た は" " (null string) A) EF, IF EOF(#) THEN 文 は この 、 ア ウト オプ ブフ ァイル が 
発生 し た 場合 の 処理 を 定め る も の で 、 各 INPUT# 文 の 後に 置き ます 。 も し INPUT# 文 で アウ ト オ 
プ フ ァ イ ル が 生じ し て いれ ば 、THEN 以 下 が 実行 され る こと に な り ま す 。 
800 ROPEN #3, "DATA" 
810 INPUT #3,DT$: PRINT DT$ , 
820 IF EOF(#3) THEN END 
830 GOTO 810 
ewe sat peren BSD774)0v" DATA" に 登録 きれ て いる デー タ を 最初 か ら 最後 まで 全部 読み 出し て 
CRT ディ スプ レイ 上 へ 表示 させ ます 。 


39 


2.3 エラ ー 処 理 コ ント ロー ル 文 


2.3.1 ON ERROR GOTO 


EB 


2.8.2 IF ERN 


eft 
CENE: 


ON ERROR GOTO Ir 

lg sseseces 参照 行 番号 (reference line number) : エラ ー 処 理 ル ー チ ン の 先頭 
エラ ー が 発生 し た 時 、 エ ラー 処理 を 行う た め に プロ グラ ム 実 行 を 移す 行 番号 を 宣言 し ます 。 
ON ERROR GOTO 娘 に よっ て エラ ー 処 理 ル ー チ ン を 宣言 する こと に よっ て 、 エ ラー 発生 時 に 、 
BASIC コマ ンド レベ ル へ 戻さ きず に 、 プロ グラ ム 内 で エラ テー 処理 を 行う こと が 可能 に な り ま す 。 
ON ERROR GOTO 文 が 実行 され て いる と 、 プ ログ ラム 実行 中 に どの よう な エラ ー が 発生 し た 場 
合 も プロ グラ ム 実 行 は lr で 始ま る エラ ー 処 理 ル レー チン へ 移さ きれ て 来 ま す が 、 こ の ルー チン で TE 
ERN 文 や IF ERL 文 を 用 いる こと に よっ て エラ ー 番 号 (ERN) と エラ ー 発 生 行 番号 (ERL) の 
判別 が で き 、 そ れ ぞ れ 適 当 な 処理 を 行う こと が で きま す 。 更 に 、 エ ラー 発生 箇所 に プロ グラ ム 実 行 
を 戻す た め に 、RESUME 文 を 使用 する こと が で きま す 。 
新た に ON ERROR GOTO 文 を 実行 する と 、 前 の ON ERROR GOTO 文 は 無効 に な り ま す 。 
ON ERROR GOTO を 宣言 後 、CLR 命 令 を 実行 する と 、 こ の 宣言 は 無効 と な り ま す 。 


IF ERNexpression THEN Ir 
IF ERN expression THEN ` statement 
IF ERN expression GOTO Ir 

ERN expression: ERN の 関係 式 


発生 し た エラ ー の 種類 を 判断 し て 、 エ ラー 処理 の 分 岐 を 行い ます 。 (ERN: error number) 
ON ERROR GOTO 文 の 実行 に よっ て エラ ー 処 理 ル ー チ ン の 参照 行 番号 が 定義 され て いる 場合 に 
は 、 エ ラー 発生 時 に 、 シ ステ ム 変 数 ERN に 、 エラ ー 番 号 が 代入 され その エラ ー 処 理 ル ー チ ン へ ヘコ 
ント ロー ル が 移さ れ ま す 。 エ ラー 番号 は 、 巻 末 の 表 A 一 2 に 示さ れ て いま す 。 
IF ERN 文 は 、 エ ラー 処理 ルー チン 内 で 、 発 生 し た エラ ー を 判別 する も の で あり 、IF 文 に よっ て 
ERN の 値 を 調べ る こと が で きま す 。TIF ERN Xid, 書式 に 示さ れ て いる よう に 他 の IF 文 と 同 様 
に 3 種類 の 形 を 使う こと が で きま す 。 
エラ ー 処 理 ル ー チ ン の 先頭 行 番号 を 1000 と し 、 そ こ で 、 エ ラー 番号 5 (スト リン グ オ ー バ ー フ ロー 
スト リン グ 長 が 255 文字 を 越え た) で あれ ば 更に 行 番号 1200 へ ジャ ンプ ' さ せる 例 を 次 に 示し て いま 
す 。 
10 ON ERROR GOTO 1000……… エラ ー 処 理 ル ー チ ン を 定義 する 
1000 IF ERN=5 THEN 1200……… スト リン グ オ ー バ フロ ー・ エ ラー で あれ ば 1200 へ ジ 
QUEEN KEE EEE SS E AFTA 
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2.3.3 IF ERL 


= xt IF ERL expression THEN Ir 
IF ERL expression THEN statement 
IF ERL expression GOTO Ir 


ERL expression: == ERL の 関係 式 
lr 参照 行 番号 
発生 し た エラ ー 箇 所 を 判断 し て 、 エ ラー 処理 の 分 岐 を 行い ます 。(ERL ` error line number) 
解 P エラ ー 発 生 時 に 、 シ ステ ム 変 数 ERL に は 、 エラ ー 発 生 行 番号 が セッ ト さ れる の で 、ON ERROR 


GOTO 文 で 宣言 きれ た エラ ー 処 理 ル ー チ ン で 、IF ERL 文 に よる エラ ー 発 生 箇 所 の 判別 が テキ ス 
ト の 定義 行 番号 に よっ て で きま す 。 
IF ERL Xii, IF ERN 文 と 同じ く IF 一 THEN、IF 一 GOTO の いずれ の 形 で も 使え ます 。 
エラ ー 発 生 行 番号 が 250 で ある 時 、1300 行 へ 分 岐 す る に は 、 次 の 文 を 用 いま す 。 
1010 IF ERL=250 THEN 1300 


エラ ー 番 号 が 43 で か つ 、 そ の 発生 箇所 が 450 行 上 で な けれ ば 、 メ イン プロ グラ ム 中 の 行 番 号 520 へ 戻 
す に は 次 の 文 を 用 いま す 。 
1020 IF (ERN=43) > (ERL< >450) THEN RESUME 520 


2.3.4 RESUME 


書 式 RESUME <NEXT> 
RESUME Ir 
な 参照 行 番号 また は 0 
エラ ー 処 理 後 、 プ ログ ラム 実行 を メイ ンプ ログ ラム へ 戻し ます 。 
還 較 33 題 エ ラー 発生 時 に は エラ ー 発 生 位置 が 記憶 され て いる の で 、 エ ラー 処理 を 終了 し た 後 、 そ の 文 あ る い 
は 、 そ の 次 の 廊 へ プロ グラ ムッ 実行 を 戻し た り 、 或 い は 、 他 の 任意 の 行 へ 戻す こと が で きま す 。 
即ち 次 の 4 通り の 復帰 方 が 記述 で きま す 。 


RESUME -------- E OH e e CAE 
RESUME NEXT……… エラ ー が 発生 し た 文 の 次 の 文 へ プロ グラ ム 実 行 を 戻し ます 。 
RESUME lr lr で 指定 する 行 へ プロ グラ ム 実 行 を 戻し ます 。 
RESUME 0 ……… プロ グラ ム の 先頭 、 即 ち 最 小 の 行 番号 を も つ 行 へ プロ グラ ム 実 行 を 戻 
し ます 。 
エラ ー が 発生 し て いな い の に RESUME 文 に 来 た 場合 、 こ こ で Error 21 (RESUME-no ERROR) 
が 発生 し ます 。 


RESUME 不能 の 場合 、Error 20 (Cant RESUME) が 発生 し ます 。 
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2.4 ユー ティ リティ プロ グラ ム の 使い 方 


DISK _ BASIC マスター ディス ク に は 、BTX フ ァイル "AUTO RUN"、 幾 つか の サン プル プロ グラ ム 、 そ れ に 、2 つ 
の ユー ティ リティ プロ グラ ム が 用 意 さ きれ て いま す 。 
2 つの ユー ティ リティ プロ グラ ム は 、 次 の よう に いずれ も 機械 語 プ ログ ラム ファ イル で す 。 (ディレク トリ 表示 ) 
OBJ* "Filing CMT" 
OBJ* "Utility" 
OBJ フ ァイル "Fing CMT" は 、 カ セ モット テー プ フ ァ イ ル 上 の OBJ フ ァイル を 、 デ ィ ス ク 上 へ 移し か そる ユー ティ リ 
ティ プロ グラ ム で あり 、OBJ フ ァイル "Utility "は 、 デ ィ ス ク の イニ シャ ライ ズ お よび 、 デ ィ ス ク の コピ ー 操 作 を 行う た 
め の ユ ー テ ィ リ ティ プロ グラ ム で す 。 


2.4.1 ユー ティ リティ プロ グラ ム " Filing CMT" の 使い 方 


ユー ティ リティ プロ グラ ム " Filing CMT" に よっ て カセ ッ ト テ ー プ ファ イル の OBJ プ ログ ラム 、 た と えば 、MONITOR 

プロ グラ ム に よっ て 作成 し た 機械 語 プ ログ ラム や 、BASIC イ ンタ ー プ リタ MZ-1Z001 な どの シス テム ソフ トウ ェ ア を 、 デ 
ィ ス ク 上 へ 登録 する こと が で きま す 。 デ ィ ス ク 上 に 登録 きれ て いる ファ イル は 、 カ モッ ト フ ァイル より も 早く 読み 出す こ 
と が で きま す 。 


この ユー ティ リティ プロ グラ ム は 、OBJ フ ァイル な の で 、DISK BASIC か ら コ ント ロー ル を 移す 必要 が あり 、 
RUN "Filing CMT" 
コマ ンド を 実行 し 、" Filing CMT "プロ グラ ム を スタ ー ト させ ます 。 
"Filing CMT "プロ グラ ム が スタ ー ト する と 図 2 一 3 に 示す 表示 が な され ます 。 


zk TRANSFER FROM CMT (OBJECT TAPE) TO FD x 
SET TAPE! OK? 
(B KEY: BOOT START) 

DRIVE NO. Së 


2 一 3 


ファ イリ ング すべ き カ セッ ト テ ー プ ファ イル を カセ モット デッキ に セッ ト し 、 転 送 先 の ドラ イブ 番号 を キー ボー ド か ら 入 
力 し ます 。 こ れ に よっ て ファ イリ ング が 自動 的 に スタ ー ト し ます 。( カ セット テー プ 上 の OBJ プ ログ ラム に は か な ら ず ファ 
イル 名 が 必要 で す 。) 

ファ イリ ング が 終了 し た ら 、 次 の メッ セー ジ を 表示 し ます 。 


(R) KEY : RESTART 
OTHER KEY: BOOT START 


即ち 、 続 け て 他 の OBJ フ ァイル の ファ イリ ング を リス ター ト す る 場合 [R] キー を 押し 、 そ う で な いと き は 他 の キー 
を 押し て シス テム の イニ シャ ルプ ログ ラム ロー ディ ング を 行い ます 。 
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2.4.2 ユー ティ リティ プロ グラ ム "Utility" の 使い 方 


RUN "Utility " 
コマ ンド を 実行 する こと に より 、 ユ ー テ ィ リ ティ プログ ラム " Utility" が スタ ー ト し 、 図 2 一 4 の 表示 を CRT ディ ス 
プレ イ 上 に 行い ます 。 


xÆ UTILITY kk 
(COMMAND TABLE) 


DISK INIT DI 
SLAVE-DISK INIT :S 
DISK COPY SG 
BOOT START B 
? SS 

2—4 


即ち 、1I、S、C の 3 つの ユー ティ リティ コマ ンド と 、 コ ント ロー ル を IPL へ 戻す B コ マン ド が この プロ グラ ム に あ 
り ま す 。 


I コマ ンド : DISK INIT は 、 デ ィ ス ク の イニ シャ ライ ズ を 行い ます 。 す べ て の 新しい ディ スク は 、 I コマ ンド を 実行 
し て 、 デ ィ ス ネス ク の フォ ー マ ッ ティ ング を 行なわ な けれ ぼ な り ま せん 。 
I コマ ンド を 実行 する と 、 


7? I 
DRIVE NO. & 


の 表示 が な され 、 イ ニシ ャ ライ ズ す べき ディ スク の セッ ト し て ある ドラ イブ 番号 を 聞い て くる の で 指定 し て 下さ い 。 イ ニ 
シャ ライ ズ を 終了 する と 、 再 び 図 2 一 4 の コマ ンド テー ブル 表示 が な され ます 。 


S コ マン ド : SLAVE-DISK INIT は 、 エ コマ ンド に よっ て イニ シャ ライ ズ し た ディ スク を スレ ー ブ デ ィ ス ク と し て 使 
用 する 場合 に 続け て 実行 し 、 ス レー プ ブ デ ィ ス ク 用 の ファ イル テー ブル と 、 ス レー プ ブ デ ィ ス ク ・ ボ リュ ー ム ナン バ の 設定 が 
行わ れ ま す 。 


VOLUME NO. 


の キー 入力 待ち に 、 1 一 127 の 範囲 内 で 適当 な ボリ ュー ム ナ ン バ を 指定 し ます 。 ボ リュ ー ム ナン ババ は 、 フ ァイル コン トロ ー 
ル 女 の オペ ラン ド に 用 いら れ 、 ス レー プ ブ ディスク の 判別 に 使わ れん ます 。 


C コ マン ド : DISK COPY は 、 文字 通り 、1 つの ディ スク の 内 容 を イニ シャ ライ ズ し た 新しい ディ スク へ ヘコ ピー する プ 
ログ ラム で す 。 こ れ に よっ て 、 次 ペー ジ に 述べ る よう に 、 マ スタ ー デ ィ ス ク の サブ マスター ディ スク を 作成 する こと が で 
きま す 。 
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C コ マン ド を 与え る と 、 原 本 と な る ディ スク の セッ ト さ れ て いる ドラ イブ 、 続 いて コピ ー を 作成 する ディ スク の セッ ト 
され て いる ドラ イブ を 聞い て 来る の で 指定 し て 下さ い 。 た と えば 、 ド ライ ブ 1 番 の ディ スク の 内 容 を ドラ イブ 2 番 ヘ コピ 
ー す る に は 、 次 の よう に ドラ イブ 番号 を 与え ます 。 

TX 
FROM 
DRIVE NO.1 


TO 
DRIVE NO.2 


画 サ ブ マ スタ ー デ ィ ス ク の 作成 
C コ マン ド を 実行 する と き 、 コ ピー 原本 を マス ター ディ スク と し て お く と 、 サ ブ マ スタ ー デ ィ ス ク が コピ ー と し て 作ら 


れ ま す 。 
ディ スク は 不 注意 な 扱い に よっ て 使用 不能 と な っ た り 、 不 護 の 事故 、 停 電 等 に よっ て 壊さ れる と いう こと が 起こ り 得 ま 


す 。 そ うい う 場 合 を 考え て 、 マ スタ ー デ ィ ス ク は いつ も 安全 な 場所 に 保管 し て お き 、DISK BASIC の 使用 は 、 普 通 こ の 
ユー ティ リティ に よっ て 作成 し た サブ マス ター ディ スク を 使用 する よう に し て くだ さい 。 ま た 万 一 の こと を 考え て 、 大 切 
な スレ ー プ ブ ディス ク は 必ず コピ ー を 作っ て お く よ う に し ます 。 


"Utility" の C ど コマ ンド を 用 いて 、 サ プ ブ マ スタ ー デ ィ ス ク を コピ ー す る こと は で きま せん 。 図 2 一 5 に その 関係 を 示し 


て いま す 。 


"Utility "プロ グラ ム (C コ マン ド ) に て 作成 で きる ディ スク 


ユー ティ リティ プロ グラ ム で の エラ ー 表 示 
DISK ERROR=50 ……… ディ スク ドラ イブ が レデ ィ 状 態 に な い 
DISK ERROR-4]1] eee ディ スク ドラ イブ の ハー ド 上 の エラ ー が 発生 し た 


DISK BASIC 応 用 プログラム | Chapter 
デー タ 処 理 ア プリ ケー ショ ン 3 


-OZIi. DISK BASTC を 用 いた 典型 的 な 応用 プロ グラ ム を 示し て いま す 。 
(な お 、 本 プロ グラ ム を 使用 し た こと に よる 金銭 上 の 損害 お よび 人 逸失 利益 ま 
た は 第 三 者 か ら の いか な る 請求 に つい て も 当社 は その 責任 を 負い ませ ん の で 
あら か じ め ご 了承 くだ さい 。) 

本 プロ グラ ム は ドット プリ ンタ MZ-80BP5 を 対象 と し て 作成 され て いま す 。 
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デー タ 和 処理 ア プリ ケー ショ ン 


この プロ グラ ム は 、 デ ー タ ファ イル を ユー ザー 自身 で 任意 に 決定 する こと が で き 、 そ の ファ イル デー タ の 演算 処理 、 ソ 
ー テ ィング 、 リ スト 作成 等 を 可能 と する も の で す 。 対象 と する デー タ 処 理 、 フ ァイル の 種類 に 関し 、 多 目的 用 途 に 応用 で 
きる よう に 、 汎 用 性 を も ちっ て いる た め 、 成 績 表 を 作っ た り 、 在 庫 管 理 に も 用 いる こと が で きま す 。 こ の プロ グラ ム は 次 の 
ジョ ブ を も っ て いま す 。 


Disk Read 


2. RAM Read 


1. To Disk 


2. To Printer 


1. Auto Read 
2. Step Read 


1. Addition 


1. Delete 


2. Operation 


pee ee dee te ee ee fe ee eee 


(サザ プ Yaz) 
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ファ イル デー タ の 構成 

1 つの ファ イル は 下図 の よう に デー タ を 構成 し ます 。 フ ィ ー ル ド の N は 10 以 内 で あり 、 デ ー タ の 項目 M は 200 以内 で す 。 
例え ば デー タ 項 目 の 2 番目 と は 右 図 の アミ の か か っ た デー タ 群 を 意味 し ます 。 こ れ は デー タ 入 力 時 、 こ の デー タ 群 を 1 つ 
と し て 登録 する こと に より ます 。 従 っ て 、 1 項目 の 削除 の 場合 は 、 や は りこ の 1 まとまり の デー タ 群 の 削除 を 意味 し ます 。 


デー タ の 語 長 
1 つの フィ ー ル ド に 対し て 入力 デー タ の 語 長 を 指定 し な けれ ば な り ま せん 。 これ を 決定 する に は その フィ ー ル ド に 属す 
る デー タ の うち で 最大 の 語 長 を 、 小 な く と も この フィ ー ル ド の 語 長 と し て 指定 すべ き で す 。 


デー タ の 属性 
入力 デー タ の 属性 と は その デー タ が 数 値 (Numeric) か 、 ス トリ ング デー タ (Alphanumeric) か と いう こと で す 。 これ 
を 定義 むる こと に より 、 キ ー 入 力 で きる 文字 が 制限 され ます 。 演算 を 行わ せる フィ ー ル ド の デー タ は 必ず Numeric と し て 
定義 し な けれ ば な り ま せん 。 
Numeric モー ド AE nw wot 0 一 9、 ス ペー ス 
Alphanumeric モー ド ・ アス キー コー ド の $30- $ 7E の 文字 
た だ し 、 両 モー ド 共 に 、 カ ー ソ ルコ ント ロー ルキ ー の 左右 シフ ト 、 押 入 、 削 除 及び | TAB | キー の み を 有効 と し ます 。 


デー タ の 入力 

カー ソル が あら われ て いる 場合 の キー 入力 に 対し て は 、 デ ー タ 入力 後 、 必 ず cR ] ヌ は キー を 入力 し な け 
れ ば な り ま せん 。 こ れ に より デー タ は 有効 と な り ま す 。 こ の プロ グラ ム で は 、 すべ て の キー 入力 時 の 任意 の 位置 で | TAB | 
キー が 有効 で あり 、 ジ ョ ブフ ブ 選択 ル ー チ ン 又 は ジョ ブ 選 択 ル ー チ ン へ も どれ る 状態 へ 移行 し ます 。 


ファ イル 格納 ディ スク 

この プロ グラ ム に よっ て 作ら れ た ファ イル を 格納 する ディ スク は 複数 で あっ て も か まい ませ ん 。 デ ィ ス ク か ら の ファ イ 
ル の 読み だ し 、 デ ィ ス ク へ の デー タ の 書き 込み の 際 、 現 在 DIR に より 選択 きれ て いる ディ スク に 対し て 動作 し ます 。 即 ち 、 
途中 で の ディ スク の 交換 が 可能 で す 。 

また 、 こ の プロ グラ ム と ファ イル を 格納 する ディ スク は 同一 で ある 必要 は な く 、 こ の プロ グラ ム 実 効 開始 後 の 日 付 入力 
以降 、 フ ァイル 格納 用 ディ スク を ディ スク ドラ イブ に 挿入 し ます 。 
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プロ グラ ム の 実行 


(a) 日 付 の 設定 
月 、 日 、 年 の 順に 入力 し ます 。 月 と 日 に 関し て は 、 2 文字 まで 、 年 に 関し て は 、 4 廊 字 まで の 数 値 と し ます 。 
例え ば 、1981 年 11 月 9 日 で あれ ば 


CJC Jess) 9 Gëlle) * JOG) len) 


CO Gen] > En) > Let: leng 
と 入力 し ます 。 図 3 一 3 の か わり に で も か まい ませ ん 。 


また は 


111 Data Processing Prograe $ $1 


3—3 


(b 各 ジ ョ ブ の 選択 

CRT デ ィ ス プレ イ 下 部 で " Main job "と いう 文字 が フラ ッ シ ン グ し て いま す 。 この と き 、1 一 6 の キー に より 各 ジ ョ ブ 
を 選択 し ます 。 

メイ ンジ ョ ブ を 選択 し た 後 、 次 に その サブ ジョ ブ を 同じ よう に それ に 対応 する キー で 選択 し ます 。 図 3 一 4 

各 ジ ョ ブ に つい て は 次 に 説明 を 行い ます 。 


# 4 4 Data Processing Progras $11 Date : 9 NOV, 1981 


49 


Job 1. Format 


(1) Define 
次 の 条件 に 従い 、 1 フィ ー ル ド に 対す る フィ ー ル ド 名 、 デ ー タ の 語 長 及 び デ ー タ の 属性 を 入力 し 、 フ ィ ー ル ド の 定義 を 
行い ます 。 デ ー タ ファ イル を 作成 する と き 、 最 初 に 行う べき ジョ ブ で す 。 


Pa Ce ae 16 文 字 以 内 の 英 数 文字 

qe POR renee 79 以 内 の 数 。 た だ し 定義 フィ ー ル ド の デー タ 語 長 の 総和 は 79 以 内 

デー タ の 属性 omoro 数 値 デ ー タ (Numeric) に 対し て "1"、 ス トリ ング デー タ (Alphanumeric) に 対し て は 
"0 "を 入力 


この 操作 を 必要 な フィ ー ル ド 数 10 以 内 ) だ け 繰 り 返 し ます 。 図 3 一 5 


Y 1$ Data Processing Prooraa $11 Date : 9 NOV, 1981 


[Field : 1) Field Nase = Student Nuaber 
Field Length = 4 


Field Attribute = 0 


[Field : 2) Field Nase = Student Name 


Nain job: 1.Foraat 
Subj : 1.Define 
Message : Input Field Nase (Up to 16 characters) 


(2) Clear 
定義 済み フィ ー ル ド 及 びそ の フィ ー ル ド の デー タ を すべ て 消去 し 、 初 期 状態 に 戻し ます 。 新 し い フ ァイル を 作成 する と 
き な ど に 用 い 、 未 定義 フィ ー ル ド と し ます 。 
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Job 2. Read 


(1) Disk Read 
ディ スク に 格納 され て いる デー タフ ァイル を 読み 出し ます 。 CRT デ ィ ス プレ イ に 格納 ファ イル の 情報 (ファ イル 名 、 格 
納 日 付 等 ) を 表示 する の で 、 読 み 出す ファ イル が あれ ば 、 そ れ に 対応 する 番号 で 指定 し ます 。 
1 画面 に 表示 する ファ イル 数 は 9 以内 で す が 、 " To be continued" の 表示 が あれ ば 、 デ ィ ス ク に は さら に 格納 ファ イル 
が 存在 する こと を 意味 し ます 。 こ の と き 、 ス ペー スキ ー を 押す こと に より 、 次 の 格納 ファ イル の 情報 を 表示 し ます 。 "End" 
の 表示 が あれ ば 次 に 表示 すべ き フ ァイル は 存在 し な いこ と を 意味 し ます 。 図 3 一 6 
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[ File Nase ] 


Marks-5 subjects 
Total Marks 
Average 

Average Order 
Total Order 


(2) RAM Read 


内 部 メモ リ に ある デー タフ ァイル の 各 デ ー タ を CRT デ ィ ス プレ イ に 表示 し ます 。 連続 表示 を 可能 と する " Auto Read" 
と 1 ステ ッ プ ご と に デー タ を 表示 し ます "Step Read" の 2 つの ジョ ブ が あり ます 。 
"Auto Read" 中 、 ス ペー スキ ー が 有効 で あり 、 表 時 の 1 時 中 止 、 又 は 1 時 中 止 し て いる リス ティ ング を 再開 し ます 。 


図 3ー7 
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"Step Read" 中 は 、 ス ペー スキ ー を 入力 する ご と に 次 の デー タ を 表示 し 、 次 の スペ ー ス キー の 入力 を 待ち ます 。 図 | 3 


SEL 
両 モ ー ド に お いて 任意 の 時 に スペ ー ス キー、" 1 " 、! 2 の キー が 有効 で す 。 
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No. 14 ] 
014 Clint Eastwood 76 85. 64 68 85 


Wo. 1. 
O19. Miel Sigon’s M, OMS Qu 


[ No. 2) 
002. Harrison Ford .09, 75, 48, 45, H 


3] 
Jil Masili mp 2.8 5479 


in job: 2. Read 
ei x 2. RM Read 
lect : 2.Step Read 


3 一 8 


Job 3. Write 


(1) To Disk 
16 文 字 以 内 で ファ イル 名 を 指定 し 、 デ ー タ を ディ スク に 格納 し ます 。 す で に ディ スク に 格納 され て いる も の と 同一 の フ 
ァイル 名 を 指定 し た 場合 、 デ ィ ス ク の その ファ イル を 削除 すべ きか 否 か を 問い 正しく る の で 、" 1 " 文 は "2" の キー 入 


力 で 応答 し ます 。 " 1 "の 入力 は ディ スク 上 の その ファ イル を 削除 し 、 新 た に 、 内 部 メモ リ に ある ファ イル を ディ スク に 


書き 込み ます 。 
"2 "の 入力 は ファ イル 名 の 再 指定 を 行う 場合 で す 。 図 3 一 9 


1113 Data Processing Prograa $11 Date : 9 NOV, 1981 


Specify file name (Up to 16 characters) — : Marks-5 subjects 


Bind: iTo Disk 


3—9 
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(2) To Printer 


内 部 メモ リ 上 の デー タフ ァイル を プリ ンタ に 出力 し ます 。 ファ イル 名 を 16 文 字 以 内 で 最初 に 入力 し ます 。 リ ステ ィング 


を 途中 で 中 止 し た い 場合 は | AB | キー を 押す こと に より ジョ ブ 選 択 ル ー チ ン に 戻る こと が で きま す 。 


Job 4. Inform 


ジョ ブ 1 の "Define " で 定義 し た フィ ー ル ド の 定義 状態 を CRT ディスプレイ に 表示 し ます 。 定義 状態 の 確認 後 、 任 意 の 


キー 入力 に より ジョ ブ 選 択 ル ー チ ン に 戻り ます 。 図 3 一 10 


$11 Data Processing Program $11 Date : 9 NOV, 1981 


[ Field ) [ Nase 1 [ Length J [ Attribution 1 


Student Nuaber Alphanuaeric 
Student Nase Al phanuseric 
nal ish Nuser. 

rench ` 
Hathematics 

1enCe d 
Social Studies 


Ls 
2 
a 
5. 
b. 
Ts 
B. 
9. 
0. 


1 


(Wo. of Store Data = 15 1 


Wain job: A. Infora 
Message : Returns to job selection with depressing any key. 
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Job 5. Process 


(1) Delete 


内 部 メモ リ 上 の ファ イル か ら 、 不 用 の デー タ を 項目 単位 で 削除 し ます 。 ま ず 、 削 除 す る 項目 の 先頭 番地 を 指定 


その 項目 を 含め 、 何 項目 分 削除 する か を 決め 、 そ の 個数 を 入力 し ます 。 
削除 後 は 、 削 除 項 目 以降 に ある 項目 は 前 に つめ られ ます 。 図 3 一 11 
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Specify first deletion item nusber (Within 15) : 8 


Specify nuaber of deletion ites : 3 


Main job: S. Process 
Subjob : 1.Delete 


図 3 一 11 


し 、 次 に 、 
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(2) Operation 
1 一 4 の キー は 、 そ れ ぞ れ フ ィ ー ル ド ・ フ ィ ー ル ド 間 の 加算 、 減 算 、 乗 算 、 除 算 の ジョ ブ に 対応 し ます 。 図 3 一 12 
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(Field A J+ [Field BJ= (Field CJ 
Operand Field A: 
Operator Field B : 
Result Field € : 


3—12 


例え ば 、 加 算 を 行う と き に は 、 ま ず " 1 "の キー で 加算 ジョ ブ を 選び ます 。 次 に 、 演 算 フ ィ ー ル ド と 被 演算 フィ ー ル ド 
及び その 結果 を 格納 する フィ ー ル ド を 入力 し ます 。 こ の 際 の 入力 は フィ ー ル ド 番 号 と し ます 。 図 3 一 13 は フィ ー ル ド 3 と 
フィ ー ル ド 4 の デー タ の 和 を フィ ー ル ド 8 に 格納 させ る こと を 意味 し ます 。 


4 1 Data Processing Progras $1141 Date : 9 NOV, 1981 


$888 Format of Arithmetic Operation un 


C1] [Field AJ+(C Field BJ=C Field CJ 
C2) [Field AJ-(C Field BJ =U Field C) 
C3) (Field Gitt Field BJ =U Field C) 


(4) [Field AJ/( Field BJ=( Field C) 
Suamation/Average/Standard Devietion (one field) 


E] 3-13 


演算 フィ ー ル ド 又 は 被 演算 フィ ー ル ド の 指定 の 際 、 負 の 数 の 入力 (例え ば ー 1 ) を 入力 する と 、 そ の フィ ー ル ド の デー 
タ を 一 時 的 に ある 定数 値 と する こと が で きま す 。 人 負 の 数 を 入力 後 、 " Constant Value" と 表示 する の で 、 任 意 の 定数 値 
を 入力 し ます 。 
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図 3 一 14 は 、 フ ィ ー ル ド 8 の デー タ を 定数 5 で 割り 、 そ の 結果 を フィ ー ル ド 8 に 格納 させ る こと を 意味 し ます 。 


$111 Data Processing Program $11 Date : 9 NOV, 1981 


[Field &1/tField BJ= [Field C] 
Operand Field A: 8 
Constant Value : 5 
Result Field C : 8 


3—14 


ここ で 注意 すべ きこ と と し て 、 演 算 結 果 を 格納 する フィ ー ル ド の デー タ 語 長 は 、 そ の 結果 に 見 あっ た 語 長 と し て 定義 し 
な けれ ば な り ま せん 。 演算 結果 は すべ て 小数 第 1 位 ま で と し 、 そ れ 以 降 は 無視 し ます 。 も し 演算 結果 の 語 長 が 、 格 納 フィ 
ー ル ド の 語 長 を 越え た 場合 、 こ の デー タ は 無効 と し ます 。 


まだ た 、 フ ィ ー ル ド の 指定 は 、 心 ず Numeric フ ィ ー ル ド で な く て 
は な り ま せん 。 


"5 "の キー 入力 は 、1 つの フィ ー ル ド に 対す る 総和 、 平 均 値 、 標 準 偏差 を 求め る ジョ ブ の 指定 で す 。 こ こ で の フィ ー 
ルド 指定 は Numeric フィ ー ル ド と し 、 演 算 結果 は 小数 第 2 位 ま で と し ます 。 図 | 3 一 15 
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Field 4: SUM = 930 
AVERAGE = 62 
Standard Devietion = 22.7 


Main job: 5.Process 


ul H _. 2.0peration_ 
Wessage : Returns to job selection with depressing any key. 


D 3-15 
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(3) Sort 
指定 の Numeric フィ ー ル ド に 関し 、 ソート を 行い ます 。 値 の 大 きい 順に 並べ か える "Descent " と 値 の 小さ い 順 に 並べ 


か え そる "Ascent "の 2 種類 が あり ます 。 それ ぞ れ 1 、2 の キー で 指定 し ます 。 こ の 指定 後 、 ソ ー ト フィ ー ル ド を 番号 で 指 
ELET, 図 3 一 16 


111 Data Processing Prograa 888 


Date : 9 NOV, 1981 


Specify sort field (within 8) 


E] 3—16 


Job 6. Data input 
(1) Data Store 


定義 フィ ー ル ド の 内 容 に よっ て 、 そ れ ぞ れ の フィ ー ル ド の デー タ を 入力 し ます 。 CRT デ ィ ス プレ イ に 例え ば 次 の 表示 が 
され ます 。 


フィ ー ル ド 1 フィ ー ル ド 2 フィ ー ル ド 3 
( 語 長 6 ) ( 語 長 8 ) ( 語 長 11) 


"は その フィ ー ル ド の デー タ の 書き 始め を 意味 し 、 次 の " ^ "の 前 まで が 、 そ の フィ ー ル ド の 語 長 と な り ま す 。 デ 
ー タ は 指定 され た 場所 を 越え て 入力 は で きま せん 。 ま た 、Alphanumeric フ ィ ー ル ド は スペ ー ス も 1 つの 文字 と し て 扱い 、 


Numeric で は スペ ー ス は 無視 し ます 。1 つの フィ ー ル ド の デー タ を 入力 し 終え た な ら 、 又は キー を 押 


し 、 次 の フィ ー ル ド の 入力 に 入り ます 。 デ ー タ 入力 の 際 、 その フィ ー ル ド の 定義 状態 が CRT デ ィ ス プレ イ 下 部 に 表示 され 
ます 。 図 3 17 
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pen 
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No. 17 
OH Janes Caan 9 85 65 8 0. 


LM — € 


ヘー ニー ム こ : 


8 
G18 Perter Cellers# 


A m Esse mone Kanan mn, — 


B] 3 一 17 


(2) Correction 

入力 デー タ の 訂正 を 行う ジョ ブ で あり 、 訂 正 項目 番号 を 指定 する こと に より 、 そ の 項目 の 各 フ ィ ー ル ド の デー タ が CRT 
ディ スプ レイ に 表示 され ます 。 こ の と きみ カー ソル は フィ ー ル ド 1 に 位置 し て いる の で 、 フ フィー ルド 5 の デー タ を 訂正 する 
に は 又は キー を 4 回 押し フィ ー ル ド 5 の 位置 に カー ソル を 移動 させ 、 デ ー タ の 訂正 を 行い ます 。 訂正 


後 は 必ず 次 の フィ ー ル ド に カー ソル を 移動 させ 、 訂 正 デ ー タ を 有効 に させ ます 。 困 正 が 終 れ ば 、 キー を 入力 し ます 。 
区 3 一 18 


311 Data Processing Program III Date : 9 NOV, 1981 


Specify correction item number (Within 17) :17 


No. 17 
017 James Caan 54 72 668 69 72 


CERRAR ここ と る 


D 3—18 
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プロ グラ ム 中 の 主 な 変数 
AA ・ デ ィ ス ク に 格納 され る ファ イル の 数 
DT$ : Att 
NF : 定義 フィ ー ル ド の 数 | (NI-NF—1) 
P1 ・ 登録 され た 項目 数 (P1—-P-1) 
A$ (J, D : A$ (J、0) は J 十 1) 番目 の 定義 フィ ー ル ド の フィ ー ル ド 名 を 格納 
I>1 に お いて 、A$ (J、I) は (J 十 1) 番目 の 1 項目 の デー タ を 格納 
BO) : 1+1) 番目 の フィ ー ル ド の データ 語 長 
AQ) : (I+1) 番目 の フィ ー ル ド の 属性 
U : 登録 フィ ー ル ド の デー タ 語 長 の 和 
機械 語 ル ー チ ン 


メモ リア ドレ ス $FE6C~ $ FFFF が 機械 語 領域 で あり 、 3 つの プロ グラ ム か ら 構 成 さ れ ま す 。 
(1) ROPEN# 1, USR($FF7A) 

BASIC 領域 か ら ス トリ ング 変数 IP$ に デー タ を も っ て 、 ア ドレ ス $FF7A を コー ル し 、 キ ー ボ ー ド か ら の 入力 デー タ 
を IP$ に 代入 し て リタ ー ン し ます 。 こ の ルー チン を コー ル す る 前 に 次 の デー タ を セッ ト し ます 。 

アド レス $FFFE、$FFFF :V-RAM ア ドレ ス 、 こ こ で は $D550 


アド レス $FFFC ・ 入 力 デ ー タ の 書き 始め を 上 記 V-RAM ア ドレ ス か ら の 変位 で 与え る 
アド レス $FFFB ・ 入 力 デ ー タ の 語 長 
アド レス $FFFA ・ 入 力 デ ー タ の 属性 (1=Numeric, 0=Alphanumeric) 


(2) USR($FFDD) 
1 行 80 文 字 の モー ド で の CRT ディ スプ レイ に 対し 、3 行 目 か ら 20 行 目 ( ト ッ プ ライ ン を 1 行 目 と し ます 。) に 表示 され た 
デー タ を 1 行 分 上 に シフ ト し た 状態 の 表示 を 行い ます 。 た だ し 20 行 目 は スペ ー ス ライ ン し ます 。 


(3) USR($FFEA) 
押し た キー に 対応 する アス キー コー ド を 1 文字 分 だ け 、 ア ドレ ス $FFF9 に 書き 込ん を で リタ ー ン し ます 。 


ディ スク ファ イル の 構成 


作成 され た ディ スク ファ イル は 任意 の プロ グラ ム 名 を も っ て ディ スク に 書き 込ま れ ま す 。 1 つの ファ イル は シリ アル デ 
ー タ と し て 構成 され て いま す 。 ま た だ た 、 各 ファ イル の 格納 情報 と し て 、 フ ァイル 名 、 登 録 日 付 、 定 義 フ ィ ー ル ド 数 、 格 納 項 
目 数 を ラン ダム ファ イル "'Storage File" に 格納 し て いま す 。 
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TZHegae f 


ファ イル 名 
" Constant Data" 


" Format " " Format" 
ルー チン へ の ルー チン カン と? 


GOTO 3000 


CRT へ の 表示 を 
80characters 
/line 


の モー ド に 設定 


配列 変数 の 宣言 


エラ ー 発 生 時 の 
処理 ルー チン の 


= 
A 


GOTO 1540 


GOTO 1530 


GOTO 2000 


GOTO 2250 


GOTO 2500 


GOTO 2650 


GOTO 4000 


GOTO 4200 


GOTO 4500 


GOTO 3500 


GOTO 3600 


" Define" ルー チン へ 


" Format" 
"Clear" ルー チン へ 
" Disk Read" ルー チン へ 

" Read" 
"RAM Read "ルー チン へ 
"To Disk" ルー チン へ 

" Write" 
"To Printer" ルー チン へ 
" Delete" ルー チン へ 
" Sort" ルー チン へ " Process "' 
" Operation" v — 7^ 
"Data Store" v — $4 7^ 

"n Entry n 


" Correction" ルー チン へ 
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(1540 — 1740) 


フィ ー ル ド 変 数 


の 初期 化 


GOTO 1000 


GOTO 1000 キー? 


フィ ー ル ド 名 
登録 


GOTO 1000 


" Disk Read" 


(2000 — 2200) 


GOTO 1000 


" Storage File 


No 


"To be continued" 


Yes 


イン フォ 


ショ ン フ 


dx 
ed 


Yes 


x$ 


tk 
3 


a 


GOTO 1000 
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" RAM Read" 


スシ ァイル に デー 
タ は 存在 する か >? 


" Auto Read "か 
"Step Read" 


か の 選択 


(キー 入力 ) 
<x > Yes GOTO 1000 


最初 の 項目 
こも どす 


Auto Read" 
ー ド か ? 


" Auto Read" 
モー ド に 設定 


"Step Read" 
モー ド に 設定 
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" To Disk" d 
Sek (2500 ~ 2625) 


No ラテ イル デー タ 。 
は 存在 する ? 


GOTO 1000 


ファ イル 削除 


GOTO 1000 
"To Printer" 
ペタ ー ト 


(2650 ~ 2840) 


定義 フィ ー ル ド 
の フィ ー ル ド 名 
を 印字 


項目 デー タ 印 字 


GOTO 1000 


(3000 ~ 3090) 


"Inform " 
スタ ー ト 


定義 され だ 
で フィ ー ル ド 
は 存在 する なか? 


定義 フィ ー ル ド GOTO 1000 
の フィ ー ル ド 名 、 
語 長 、 属 性 を 表 


z^ 


GOTO 1000 
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" Delete" 
スタ ー ト (4000 — 4120) 


Yes f GOTO 1000 


削除 項目 数 
入力 


削除 項目 数 
の 調整 


No ン 削 除 項 目 以降 
に デー タ が あ 
る な ? 


" Operation " = 
(4500 — 5050) 


GOTO 1000 WWT74—VF 


の 指定 


被 演算 フィ ー ル 
ド 、 演 算 フ ィ ー 
ルド 、 格 納 フ ィ 
ー ル ド の 指定 


GOTO 1000 


定数 値 入 力 i 


GOTO 1000 


無効 デー タ を 
設定 
演算 結果 を 格納 


すべ て の 
項目 の 演算 を 
終え た か ? 


GOTO 1000 
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" Sort KW SS 
€ ) em 4490) 


" Descend" 
又は 

" Ascend" 
の 選択 


ー ル ド の 指定 


GOTO 1000 


変換 の 基準 値 
の 設定 


デー タ の 交換 
処理 


交換 区 間 
の 細分 


No 


GOTO 1000 


(3600 ~ 3700) 


" Correction" 
スタ ー ト 


GOTO 1000 


登録 デー タ 
iti Maxi» ? 


GOTO 1000 
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1 ee Constant Data TX SB を の 9 の お 6 BS 8 お お の BB お の の の おき お の の の の きき の 
2 REN 


3 CONSOLECBO 

A PRINT’. sesona This program makes the serial data file "Constant Data’ 
5 PRINT*....... which is used in the main program "Data Processing’. 
b PRINT*....... Before executing the main program, the above file 

7 PRINT*....... "Constant Data’ aust be stored in a disk in 

B PRINT" sounna which the sain prograa is stored. 

9 REN 


10 DIN F$2)  K$(1) LH (2) ,FF$ (4) ,FH6 (6) ,F8$ (4) ER6(14),56(2) ,0$ (4) 

40 MDS="JANFEBHARAPRMAY JUNJULAUGSEPOCTNOVDEC":R$="Storage File" 

41 0$z" Field ":0$(0)="["+0$+"A J + ("+0$4°B ] = ["+0$+"C 7" 

42 OS(1)=°C°+0$4"A ] - ["+0$+"B ] = ["+0$+"C 1" 

A3 OS(3)="("+064"A ] / E089" B ] = ["+0$+"C 2"10$(4) z"Suasation/Average/Standard Deviation (one field)" 
44 8$(0) SPACES (79) 15$ (1) SSTRINGÉ (*.",79):5$(2) 2" | *&GPACES (77) "| 

45 LH(0)215:LH (1)22:LM (2) 21:06(2) 2" ["40$4"A. 1 ["+0$+"B ] = ("40$4"C 1" 

50 8T$2"16121212001312" :K$(0) z"Alphanumeric":K$(1) "Numeric" 

70 DK$z"Month ....DAY ...... Year ....." 

110 F$(0)="Field Nase (Up to 16 characters)" 

120 F$(1)="Field Length (Total Length < 80)" 

130 F$(2)="Field Attribute (OsAlphanumeric, 1=Numeric)" 

180 FR¢="| : 

160 FFS(O)="| Main job: ":FF$(1)z"| Subjob : “:FF¢(2)="| Select : " 

170 FFS(3)="| Error : ":FF$(4)z"| Message ! " 

180 FN$(0)="1.Foreat 2。Read 3 町 ite — 4.Infora  S.Process 6.Entry |" 
190 FH$(1)="1. Define 2. Clear g 

200 FN$(2)="1.Disk Read ` 2.RAM Read ` 

210 FN$(3)="1.To Disk 2.To Printer " 

220 FH$(5)z*1.Delete 2. Operation 3.Sort 5 

230 FN$(6)="1.Data Store  2.Correction " 

240 FS$(0)="Specify one of above files [ 1 to J" 

290 FS$(1)="i.Auto Read 2。.Step Read " 

260 FS$(2)="1. Descent 2. Ascent * 

270 FS$(3)="Specify operational foraat nuaber." 

280 FS$(4)="Returns to job selection with depressing any key." 

290 ER$(0)="Invalid ....... No Data or No File" 

300 ER$(1) "Invalid Data" 

310 ER$(2)="Total length is over 79, "tERS(S)-"File is filled." 

320 ER$(3)="Total length is fulled.":ER$(6)z"Iapossible ... Alphanumeric Field" 
325 ER$(4)="Fields are filled." 

330 ER$(7)="No file to be stored" 

340 ER$(8)="Printer is not ready. °:ER$(9)="Printer is in mechanical trouble." 
330 ER$(10)="Printer is out of paper." :ERS(11) "Disk drive is not ready." 

360 ER$(12)="No memory capacity to be stored on the disk"sER$(13)="Disk is not initialized." 
370 ER$(14)z"Saae file name exists," 

380 WOPEN#1, "Constant Data":PRINTH ,6T$, HD$, Ré, DK$, FR$,K$10) ,K$(1) 

390 FORIZOTO2:PRINTE,5$ (I) ,LM(ID ,F$CI NEXT 

400 FOR I0 TO A:PRINTH,FF$(ISFSS$UD ,0$0D NEXT 

410 FOR Iz0 TO &:PRINTH ,FH$CIP:NEXT 

440 FOR I0 TO 14°PRINT@I,ERS(I)SNEXT 

900 FORI=0T0395:READ As PRINT#1,ASNEXT: CLOSES END 

700 DATA 625315185 1,150) 201,221, 126,05 195, 213, 254) 2215 33,108, 254, 213 

710 DATA 42,254,255) 58, 252, 255, 95, 22,0, 25, 34, 252, 255,58, 251,255, 95, 229 

720 DATA 25,43,34,254, 253,58, 249, 255, 183, 40,11, 62, 32, 67, 35, 4, 205,80 

730 DATA 12,43,16,250,225,1, 253,32, 58, 250, 255, 183, 40, 3,1, 58, 48, 62 

740 DATA 250,8,123,186, 32,31, 205, 50,8, 205,176, 255, 205, 214, 255,8, 61,32 

750 DATA 238,205,62,12, 254, 31, 202, 116,254, 221,119,0,62, 31, 205, 80,12, 24 

760 DATA 218,205,138,255,24,226,205, 80,12, 35, 20, 201, 122,183, 202, 131, 255,21 
770 DATA 205, 116,255) 43, 201, 123; 186) 202,131, 255, 205,116, 255,35, 20, 201,122, 183 


780 DATA 202,131) 255, 123y 146) 25450) 405 228, 1975 795 6305229, 213, 205,115, 255 
790 DATA 84,93, 27,2055 93, 12543, 62,325 205, 80, 12, 209, 225, 43, 21,193, 201 

800 DATA 123, 186, 40, 94,229, 42, 254,255, 203, 62, 12 25432, 225, 32582, 205, 116 
810 DATA 255, 123, 61, 146) 25450540, 186, 19771542, 254, 255, 43, 205, 62; 12535 
820 DATA 205) 80, 125435 16) 245,62) 32, 205580, 12,193, 201, 209, 209, 205, 116, 255 
B30 DATA 195,109, 254,0, 193,205, 116, 255,42, 252, 2535 735 6,0, 209) 213,197,205 
840 DATA 62,12, 18535, 19) 13,32) 2475193) 209,201, 205,625 12, 254, 31,192, 221 

B50 DATA 126, 0,205, 80, 125201) 0) 0, 205, 20,15, 205, 205 15, 201,205, 50,8 

B60 DATA 184, 56,4, 185,218,223, 254, 245, 58, 250, 235, 183, 40, 56, 241, 254, 43, 202 
870 DATA 223,254, 254,45, 2022235 254,254, 46, 202, 223,254, 254, 32, 202, 223,254, 254 
BBO DATA 0,200,254,13, 40,154,254, 27,40, 151, 254, 4,202,229, 254, 254, 7,202 
890 DATA 251,254,254, 3,202,240, 254, 254,8, 202, 33,253, 205,131, 253, 201,241,24 
900 DATA 218,197, 6596,16, 254,193, 201,1, 80,5, 17,160, 208, 33, 240, 208, 205 

910 DATA 93,12, 20156, 1603205) 50) By 254,0, 32,2, 16,247,350, 249,252, 201 
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1 REN sivas eit DATA PROCESSING MAIN PROGRAM DEL 


2 REM 

3 CONSOLEC80 

4 CURSORO,15:PRINT"(Note) There are 3 files -- "Data Processing’, ’Constant Data TX?" 
5 PRINT" and ’Constant Data’ -- on the Master Disk." 

6 PRINT" But the files 'Data Processing’ and "Constant Data’ should" 

7 PRINT" be transferred froa the Master Disk to a slave disk." 

8 PRINT" Otherwise, error will cause under the execution." 

9 PRINT" With executing the program "Constant Data TX’, the serial" 

10 PRINT" data file 'Constant Data' will be aade." 


20 LIMITSFEBCHKILL:DINAS (9, 200) ,8(9) ,B(9) F812) K$1) yLN(2) FF$ (4) FHS (6) FS$ L4) ERS (LA) 

30 DINS$ (2) ,E(2),0$(4), X (1,100) Az 1: TENPOG: Pe1:P1-0:0N ERROR GÜTOA000 

100 ROPEN#1, "Constant Data": INPUT#1, BTS MDS, R$, DKS, FR$ K$ (0) KS (1) FORTSOTD2: INPUTA1, 5$ (1) LII FELT) NEXT 

120 FORI=0T04: INPUT#1 ,FF$(T) ,FS$11) 0$ (I) SsNEXT:FORIZOTOS: INPUT#1 ,FH$ (I) SNEXT 

130 FORI=07014: INPUTS ,ERS (I) NEXT 

200 X=65133: FORI=0TO395: INPUT41 , A POKEX*T, A: NEXT: CLOSE 

500 PRINTCHRS (6); TAB(13);"$ $ $ Data Processing Progra $ $ 1'jTAB(59);"Date ` ":PRINTSTRINGS(*-*,79) 

510 CURSORO, 20: PRINTSTRINGS(*-",79) 

700 CURSORIB, 17:PRINT*,,....... Input today’s date ....++++."tA7=3?605UB7080 

710 FORI=0T02 

720 CURSOR27; 17: PRINTMIDS (DK$, 108141, 10) 5A4=1:A5=2: IF I=2THENAS=4 

730 Ab=37:60SUB7600: IFD1=060SUB7070: 60T0700 

740 IFIP<1THEN7930 

750 ONIGOTOR00, 820 

780 IFIP>1260707930 

770 Y:IP:60T0820 

BOO Y=IP: IFY?3160T07930 

805 IF (X=2)%(¥>29) 60707930 

810 IF ((X=4) + (X=6) + (X=9) + (X=11)) 8 (Y231) 60707930 

820 A7=1:G0SUB70B0:NEXT:DTS=LEFTS(STRS(Y)+" “+MIDG(ND$, 38X-2,3)4", "4STRE(IP)#S$(0) , 12)  CURSÜRO, O: PRINTTAB(7B-LEN 
(DT$))DT$ 

1000 605UB7070: CURSORO, 20: PRINT* r"; STRINGS (*-* 77) j* t PRINTFF$ (0) ; FM& (0) t PRINTS$ (2) : PRINTS$ (2) SPRINT* t"; STRINGS (*-", 
7); 

1010 CP221:6Fz0:Kz0: JM=0: G05UB7 100: JN=6: IFG3=060T01010 

1130 CURSOR12, 21: PRINTSPACES (118 (6-1)) ; TAB (1241136) SPACES (118 (4-6) ) t IFJH=460T03000 

1160 CURSORO, 22:PRINTFFS(1);FM6 (JM) :CP=22: GF=0: K=1 :G0SUB7100:$J=6: 1F63=060701000 

1200 CURSOR12, 22: PRINTSPACES (151 (6-1) ) 5 TAB(12#1586) ; SPACES(118(3-6) ) 

1210 0NJM60T01500, 2000, 2500, 3000, 4000, 3500 

1250 ER=0 

1260 605UB7400: 60701000 

1500 IFSJ=160701540 

1530 60SUB7920:PRINT"clearing buffer !!":FÜRLIsQTONI :FORL2sOTOP1:A6 (L1, L2) * s NEXTL2, L1 :Pz1:NFz02 P120:N1-0:0-0: 60701000 

1540 IF(NF)210)4(0)279) THENER=5360701260 

1545 YsWF:A6=37177=0 

1560 FORT=NFTO9:FORJ=0T02: IF (J=0) (U=79) BDTO1695 

1580 CP»23:605B7700: PRINTFF$ (4); "Input "3F$(J)52A4=S6N(J) :AS=LN(J) 

1585 IFJ=1THENPRINTTAB (52) j "Remainder : *;79-U; ie 

1590 IFJ=OTHENCURSORO, 17: PRINT*L Field :*jIelj* J" 

1600 CURSORIS, 17: PRINTLEFTS (FS UI, (alt: =":60SUB7600: IFD1-060T01700 

1610 08760701630, 1660 

1620 A$(1,0)=IP$:60T01480 

1630 IFIP<=0THENER=1:G0SUB7400: 60701590 

1640 U=U+IP: IFU)79THENU=UI-1P: ER=2: 605UB74001 60701590 

1650 B(I)=1P: 60701680 

1660 ACI)S IP? IF (1P<)0) 8(1P<>1) THENER=1 e G0SUB7400: 60701580 

1680 47-2: GOSUB70B0:NEXTJ 

1690 47-3: GOSUB70B0: NF=NF+1:N1=NF-12NEXTI 

1695 CP=23: G0SUB7700: PRINTFFS (4) ; ERS (4) :K=4:CP=23: GF=2: BOSUB71 10 

1700 IFY=NF60T01000 
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1705 IFPz180T01000 

1710 FORIZ1TOP1:FORJEYTONI : IFA(J) SOTHENAS (J, I) SPACES (B (J) ) 60701740 

1730 A$(J, I)-8PACES (B(J) -1) +"0" 

1740 NEXTJ, I: 80TO1000 

2000 IFSJ=260T02250 

2005 N=0:N=0: XOPENM1, R$: INPUT&1(1) , AA: IFAR=OTHENCLOSE: 60701250 

2020 FORI=1TOAA: CURSORO, 17: IFN- 960702090 

2030 IFN(20605UB7940: 60102070 

2040 PRINT"[ No, 1';TAB(12);"[ File Name 1*jTAB(32);"[ Date 1*; 

2050 PRINTTAB(45);"[ No. of Data J";TAB(63);"[ No. of Field 1*:47z1:605UB7080: 60SUB7940 
2070 CURSORO, 17: PRINTTAB(2) Mai", 5 TAB( 10) A$; TAB (31) 5 TD$3 TAB(S2) PA TAB( A9) 5 NN: N=N+1 
2080 A7=0: G0SUB7080: NEXT 

2090 CURSORSO, 17: IF (9$M&N) CAATHENPRINT*,......... To be continued. ":CM=1:60702110 
2100 CM-O:PRINT*,......... End" 

2110 CP223:605UB7700: PRINTTAB(12) 5 FS$(0) : CURSORAS, 23: PRINTN: CP=23:61=1: 62=N:K=2:6F=3: GOSUB7 110: 8834160702140, 2150 
2130 IFCH=1 THENM=N+1 5 N=0: 605UB7070: CURSORO, 17: 60702030 

2140 CLOSE: 60701000 

2150 1:918«6: GX=I: GOSUB7940: CLOSE: 608UB7070: G0SUB7920:PRINT"reading ''" 

2180 NFzNN:NIzN2:PzP2:P1zPS: ROPENMM ASS FORIZOTON! :FÜRJzQTOP1: INPUTAM1, A$ (1, J) S NEXTJ  I:Uz0 
2200 FORIZOTONI: INPUT#1, A(T) ,BLI) sU=U+B (T) S NEXT: CLOSE: 60TO1000 

2250 IFPz160T01250 

2252 CURSORO, 23: PRINTFF$ (2) SES (1) 5 $61=1262=2:CP=23:K=2: GF 20: 60SUB7110 

2260 IF63=060T01000 

2263 CURSORI2, 23: PRINTSPACES (158 (6-1) ) ; TAB (1041516) ; SPACES (118 (3-8) ) : G0SUB7450: 120: SS=6 
2280 IFI=P1THENT=0: A7=0: G0SUB7080 

2290 12141: CURSORO, 16:PRINT*E No."513" J" 

2300 FORJzOTON1:PRINTAS (J, I) ; ÀNEXTJ: PRINT: PRINTIT$:66=2¢ IFSS=260702350 

2310 8F-1:805UB7800 

2320 0N63*160702375, 1000, 2350, 2360 

2350 CURS0R70,23:PRINT"[ STOP Ir: 6F=2:60SUB7800 

2355 0N6360T01000, 2370, 2350 


2360 SS=6:CURSOR12, 23: IFG=2THENPRINT " 2.Step Read ":80T02367 
2365 PRINT"1。Auto Read " 

2367 IFSS=260T02350 

2370 CURSOR70, 23: PRINT" s 


2375 A7=2:605U87080: 60702280 

2500 IFP=160T01250 

2505 IFSJ-260T02650 

2510 21:0:CURSOR 0,17:PRINT"Specify file name (Up to 16 characters)  :* 

2520 Ais: AS=16:A6=45: 60SUB7010: IFASC (IP$)=3160T01000 

2540 FORI-Z1TO15: IFASC(MID${IP$,J,1))<>3260702555 

2930 NEXT:ERz1:605UB7400: 60702510 

2555 BÜSUB7080:B0SUB7920:PRINT "writing — ''":XX$zIPS4DTS48TR$ (NL) *STRS (P) 

2560 GOSUB2570: XOPEN#1, R$: INPUT (1) , AA: AA AA 1: PRINT (1) ARS PRINTA (A841) , XX$: CLOSE: 60TO1000 
2570 WOPEN#1, IPS: FORIZOTON1:FÜRJzOTOPi:PRINTS, A$ (I, J) SNEXTJ, I 

2980 FORI=OTON1:PRINT#1,A(1) ,B(I) SNEXT: CLOSE: RETURN 

2590 6050UB7070: CURSORO, 17: PRINT"Should be the file on the disket deleted? ( [1]YES / (2]No )" 
2600 A4=1:A5=1:Ab=65:PI$=IP$:60SUB7010: IFASC (IP$) 23160701000 

2605 IFASC(IP$) >49605UB7070: 60702510 

2610 IP$zPI$: XOPEN#1 Bé: INPUT#1 (6X) ,A$: IFIPSZLEFTS (A$, 15) 80702525 

2615 INPUT#I (1) , AA: FORIZ2TOAA* 1 : INPUT#I (I) , A$: IFIPSZLEFTS (A$, 16) THENGX=1 260702625 
2620 NEXT: CLOSE: END 

2625 PRINT# (6X) , XX$: CLOSE: DELETEIP$: 605UB2570: 60701000 

2650 CURSOR 0,17:PRINT'Specify file nase (Up to 14 characters) :" 

2653 A4=0:A5=16: Ab=45: G0SUB7010: IFASC(1P$)=3160T01000 

2655 PRINT/PCHR$(20);CHR$(18);TAB(10);"88% Data Processing %#%"}TAB(50);DT$ 
2660 PRINT/P:FÜRI-OTON!:PRINT/PTAB(100); "Field"; Latz "= "5A$(I,0) :NEIT 

2665 PRINT/PCHR$(18);" File Name :";IP$ 

2700 B:0:N1$2* *: N26z** t 3$z" "i u$ ugs" No." 
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2710 FORIZOTON1:84$-8A$*" | "+SPACES (INT (B(I) /2)) +STRE(1+1) SPACES (B(I)-INT(B(I) /2)-1) NEXT 
2720 FORIZOTONI:W$z*":FORJZITOB(I) SWS=W6+"—"SNEXTISW1S=W1S4HS4"7"s H2S=“H2S4HS4°4"s Nie ZA An 
2740 NEYTI:WISZLEFTS (W1$,LEN(W1$)-1)+"—":W2$=LEFT$ (W2$,LEN(W2$)-1)+"—"S W3S=LEFTS (W3$, LEN(G$) -1) &" 11$" 
*W1$1)2$z" ——}+"+H2$ 

2750 PRINT/PCHR$ (17) 5W1$: PRINT/PWAS:PRINT/PN2$:83$-" ——* A AL 

2770 FORI=1TOP1:PRINT/PRIGHTS(" "+STR$(1)+" *,12)5" | 5 :FORJZOTON1: PRINT/PAS(J, T) 5 IF I< NA THENPRINT/P® |"; 
2785 NEXTJ: PRINT /P: 6F=1 : GOSUB7800: IFB3X )060T02840 

2820 IFI=P1THENPRINT /PH3$:60702840 

2830 PRINT /PW2$:NEXTI 

2840 PRINT /PCHR$ (16) ; CHR$(21) :G0T01000 

3000 IFNF=060T01250 

3005 CURSORS,17:PRINT"[ Field 1';TAB(20);"[ Name 1*;TAB(35);"[ Length 1"; 

3010 PRINTTAB(50)j"[ Attribution 1":47-2:605UB7080: FORIZ1TO10: CURSORO, 17 

3030 PRINTTAB(10-LEN(STRS(IL));STR$(I15 ". "5 TAB(16) ;  IFIDDNFBOTOS070 

3040 PRINTA$(I-1,0); TAB(40-LEN(STRS4BLI-1)))) 5 STRE (BL I-1)) 5 TAB(S0) KS (A I-1)) 

3070 870:805UB7080:NEXTI: CURSORAB, 17: PRINT"[No, of Store Data =";P1;" Is 

3090 CPz23:805UB7700: PRINTFF$ (4) 5FS$ (4) :Kz4:CPz23:6Fz0:612-48:622207: 605B7110: 60701000 
3500 IFNFz080T01250 

3502 IFSJz260T03500 

3503 IFPz201THENERz5:60T01240 

3505 GOSUB7450 

3510 CURSORO, 16:PRINT"No. "; P: CURSORO; 18:PRINTITS 

3520 FORIZOTON!:805UB7500 

3530 IFD1z080T01000 

3540 NEXTI:PzP*1:P1-P-1 

3550 IFP=201 THENCP=23: G0SUB7700: PRINTFF$ (4) ;ER$ (5) :K24: CP=23: GF=2: 605087110: 60701000 
3560 A7=4: G0SUB7080: B0T03510 

3600 CURSORO,17:PRINT"Specifu correction item number (Within";P13") :" 

3610 Mz1:AS-LEN(STRS (P)) 15245: GOSUB7400 

3620 IFD1=060T01000 

3630 IF(IPOP1)*(IPC1)808UB7550: 60703610 

3640 A7=3: GOSUB7080: J=IP: GOSUB7450 

3650 CURSORO, 18: PRINT"No. "; IPSFORIZOTONI:PRINTAS(I, J) 5 e NEXT: PRINT:PRINTITS 

3720 A3=0:B=P:P=J: FORI=O0TON1 : GOSUB7500: IFD12060T03740 

3730 NEXT 

3740 A3=1:P=B2A7=4: GOSUB7080: 60703400 

4000 IFP=160T01250 

4005 ONSJ-160704500, 4200 

4007 CURSORO,17:PRINT"Specify first deletion item nusber (Within"3P1;") :"sA5=LEN(STR$(P1)) 
4010 Ab=50: A4=1: G0SUB7600: IFD1=060T01000 

4020 IF(IPX1) 4 CIP?P1) GOSUB7650: 60704010 

4025 NN=IP:A7=2:60SUB7080 

4030 CURSORO,17:PRINT"Specifu number of deletion item :":46:50:605UB7500 

4040 IFD1z080T01000 

4050 IFIP<160SUB7450: 60704030 

4060 A7=5:G0SUB7080:60SUB7920:PRINT"deletion ''" 

4080 IF (NN+IP) >=PTHENP=NN:P1=P-1:60T04120 

4090 PPzP-NN-IP:PzP-IP:PizP-1 

4100 FORJ8=0TON1 3 FORIS=0TOPP-1: A$ (J8,NN+I8) 06 (JB, NN4 IP* I8) SNEXTIB, J8 

4120 60SUB7070: 60T04000 

4200 CURSORO, 23: PRINTFF$ (2) 5FS$ (2) :6F=0:K=2:CP=23:61=1: 6222: GOSUB7110 

4220 IFB3-080T01000 

4230 CURSOR12, 23: PRINTSPACES (151 (8-1) ) ; TAB( 1241586) s SPACES (111 (3-B)) 

4240 CURSORO,17:PRINT"Specify sort field  (within";NF;") 1*:8421:45-2:45240: BÜSUB7500 
4250 IFD1=060T01000 

4252 IF (IP¢1)+( IP NF) B0SUB7650: 60704240 

4254 ST=IP-1! IFA(ST) =OTHENER=6: BÜSUB7400: CURSORO, 23: PRINTFF$ (2) 3FS$(2) 3 60TO4230 

4256 N7-5:B0SUB7080: BOSUB7920:PRINT "sorting ''":Y1z0: IFP1z160T01000 

A300 Y2z1: Y3zP1: 60SUB4480 


— | 
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4310 GOSUB4490: [2Y2: JzY3: Y: VAL (A$ (ST, INT (Y24Y3) /2)) 

4315 IFB=160T04350 

4320 FORIZITOY3: IFVAL (A$ (ST, I) )<XTHENNEXT 

4330 FORJSJTOY2STEP-1: IFVAL (A6 (ST, J) ) SXTHENNEXT 

4340 60704370 

4350 FORIZITOY3: IFVAL (A$ (ST, 1) ) XTHENNEXT 

4360 FORJ=JTOV2STEP-1:IFVAL (A$ (ST, J) ) く XTHENNEXT 

4370 IFI>J60T04400 

A380 FORIISOTONI:CH$sAS$ (IT, J) SAS (11,J) zA$ (11, 12 AS (IE I) sCHÉS NEXTIT 

4390 I21*1:J2J-1:60704515 

4400 YAzY3: IFY2< JTHENY3=J: B0SUDA480 

4410 Y3zY4: IFICYSTHENY2z I: GOSUB4480 

4420 IFY1<>060T04310 

4430 60701000 

4480 X(0,Y1)2Y2:Y (1, Y1) =¥32 V1=¥1+1 S RETURN 

4490 Y1zY1-1:Y22X (0, Y): Y523 (1, Y ) S RETURN 

4500 11:0: XB:0: CURSOR14, 17: PRINT"$11213 Format of Arithaetic Operation %%%%":A7=2:60SUB7080 
4510 FORIZOTOA:CURSORIO,17:PRINT "[*51415* ] '50$(D):4721:605UB7080: NEXT 

4520 CP=23: 808UB7700: PRINTFF$ (2) ESA (3) :G1=1:62=5:6F=0: K=2: CP=23: GOSUB7110 

4840 IF63=060T01000 

4550 OP=6:60SUB7070: I=0: IFB:STHENI-S 

4553 GOSUB7070: CURSORO, 17: PRINTOS (6-1) :A7=1:G0SUB7080 

4555 A$=" OperandOperator Result "360704565 

4557 CPz17:805UB7700: CURSOR21, 17: PRINT"Constant Value :":A4=1:A5=9:A6=40:605UB7010: IFASC (1P$)=3160T01000 
4558 VzVAL(IPS): IFXG=1THENVi=V: DEF FNZ (1)=V1:60T04610 

4559 DEF FNV(I)=Vi60T04610 

4565 FORI=1T02 

4568 CURSOR20,17:PRINTMID$(A$,8%1+1,8)3" Field “CHRS(G5+1)5° es IFOP=STHENCURSORSS,17:PRINT® " 
4570 A4=1:A5=2: Ab=40: BÜSUB7500: IFD1z060T01000 

4575 IF(I) PC) THENY62368141: 60704557 

4580 IF(IP<O)+(IP NF) 50SUB7650: 60704568 

4585 IFACIP-1)=OTHENER=6: 60SUB7400: 60704568 

4590 IFOP=STHENNEXT: 60705020 

4600 E(1)=IP-1 

4610 A7=1:60SUB7080: NEXT 

4612 IFXG=OTHENDEF FNZ(I)SVAL(AS(E(O) D) ) SDEF FNV(I)=VAL(AS(E(1),1))260704620 

4614 IFXB=1THENDEF FNVCI) VAL (AS(E GL) , D)) 260704620 

4616 IFXB=2THENDEF FNZ(I)SVAL(AS(EQD, ID) 

4520 A7:2:805UB7080: BOSUB7920:PRINT"culculation  !'":0NOP-160T04650, 4660, 4670, 5020 
4640 FORIZITOP1:Z-FNZ(I) 4FNV (I) :60704800 

4650 FORISITOP1:ZsFNZ(I-FNV (CI) 560704800 

4660 FORIZITOP1:Z-FNZ(I) $FNV(I) :60T04800 

4570 FORI=1T0P1: IFFNV(I) OTHENAS (E(2) ; I)-LEFT$ (8$(1) ,B(E(2)) ) 360704820 

4680 Z=FNZ(1) /FNV(I) 

4800 Z=INT (781040. 5) /102A$(E (2), 1)=RIGHTS (8$ (0) *STR$ (2) ,B(E(2))) 

4810 IFLEN(STR$(7)) B(E(2) ) THENAS(E (2), 1)=LEFT$(S$(1),B(E(2))) 

4820 NEXT:B0TO1000 

9020 J:IP-1:LKz0: KLz0: FORIZ1TOP1:KTzVAL (A$ (J, I) sLKZLK*KT: KLEKLeKTEKT: NEXT 

9030 AVZINT (LK /P11100) /100: SDZ INT (1008 5QR (KL /P1 -AVEAV) ) /100 

5040 B05UB7070: CURSORO; 17: PRINT"Field"; IP; " :*;TAB(14) ; "SUM z";LK:7-1: GOSUB7080: CURSOR14, 17: PRINT"AVERABE ="sAV 
5050 A7:1:805UB7080: CURGOR14, 17: PRINT"Standard Deviation :";SD:60T03090 

6000 IF ({ERL=100) +(ERL=200) ) t (ERN=50) + (ERN=40) ) THENCURSORO, 17: PRINT"Data file does not exist. Otherwise, disk is not 
ready. ":KILL:END 

6005 IF (ERL=7550) +(ERL=7620) THENIP$="0": RESUME 

6010 IF (ERL=2570) t (ERN=42) THENERz14: 605UB7400: KILL: RESUME2590 

6020 IF (ERN=65) +(ERN=66) +{ERN=47) THENER=ERN-57: 60706060 

6030 IFERN=SOTHENER=11:60706060 

6040 IF (ERN=53) + (ERNZ54) THENER=ERN-4 1 : 60706040 

6050 GOSUB7080: CURSORO, 17: PRINT"Resuaption iapossible":KILL:END 
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6060 G0SUB7420: 4723: GÜSUB7080: CURSORO, 17: IFERNzS3THENPRINT "Replace with new diskette. ":A7=3:G0SUB7080:CURSORO, 17 

6065 PRINT"Depress any key after proper procedure." 

5070 B05UB7780: IFG=-4860T04070 

6080 805UB7070: CURSORS3, 17: PRINT"Resusption ''":KILL: IFERN-5360T05090 

5082 IFERN< 65THENA7=13: B0SUB7080: RESUME 

5084 PRINT/P:PRINT/P:PRINT/P:PRINT/P: RESUME2655 

5090 XOPENEI, R$: INPUTI (1) , AM: CLOSE: RESUME2560 

7000 Ab=0: IF 1=060T07020 

7005 FORI1=0TOI-1:A6=A6+B(11) S NEXT: 60707020 

7010 POKESFFFA, M*:POKESFFFB, AS: G0T07040 

7020 POKESFFFA, A CI) *POKESFFFB, BUI) 

7040 POKESFFFE, $50: POKESFFFF , $05: POKESFFF9, A3: POKESFFFC, Ab 

7050 ROPENM,USR ($FE7A) : INPUTS , IPS: CLOSE: RETURN 

7070 87:16 

7080 FORII1z0T0A7:USR($FFDD) s NEXT: RETURN 

7100 61-VAL(NID$(6T$,212M041, 1) ) 3 B2: VAL (MID$ (ET, 28JN+2, 12) 

7110 Rz0:RVz-1:VRzO 

7120 CURSORO, CP: IFBFz260T07170 

7130 605UB7780:IF6=-4860T07170 

7140 IFG=-21 THENG3=0: 60707240 

7145 IFGF=3THENIFG=-16THENG3=2: 60707240 

7150 IF (6>61-1) 8(6<62+1) THENGS=1: 60707240 

7160 60SUB7650 

7170 IFGF=160T07120 

7190 IF (GF=2) t (VR250) 60707240 

7200 Rs0:RV=-RViVR=VR+1iIFRVXOTHENPRINTFR%!60T07120 

7210 PRINTFF$(K) 360707120 

7240 IFGF<>1 THENPRINTFFS (K) 

7250 RETURN 

7400 CPz23:608UB7700: PRINTFF$ (3) ; ER (ER) : 608UB7650 

7410 CP=23:K=3: 6F=2: BOSUB7 1 10: CPz23: G0SUB7 700: RETURN 

7420 605087070: CURSORO, 17: FRéz" "SFF$(3)s* Error : "sPRINTFF$(3);ER$(ER) 160SUB7650 

7430 CPz17:K-3:6F22:6085UB7110:FF$(3)z"] Error — : ":FR$="} *: RETURN 

7450 IT$z"":FORIISOTON1: IT$zIT$ "^" 

7455 IFB(I1) >1THENFORJJ=1TOB (IT)-1:1T%=IT "^": NEXTJJ 

7460 NEXTII:RETURN 

7900 CPz23:805UB7700: PRINTFF$ (4) j "Field"; I*15** "sAS(I,0)3TAB(45) 5K$(A(D)); 

7510 PRINTTAB(52) j " Lengthz"; B(T) 3605UB7000: IFASC (IP$) 231THEND120 RETURN 

7540 IERT 2060707580 

7550 IP$z5$(0) *STR& (VAL CIP$)) : IPS=RIGHTS(IP$,B(1)) 

7980 A$(I,P)sIP$: D121: RETURN 

7500 G0SUB7010: IFASC (IP) 31THEND120: RETURN 

7610 IFA4=OTHENDI=1:RETURN 

7620 1PzINT(VAL (IP$) ) : IPzSTR$ (IP) : D1=2: RETURN 

7650 MUSIC"+BOR+BR+B": RETURN 

7700 CURSORO, CP: PRINTS$ (SGN(CP-21) +1) s CURSORO, CPs RETURN 

7780 USR($FFEA) : G=PEEK ($FFF9) -4B: RETURN 

7800 60SUB7780: IFG=-48THENONGFG0T07850, 7800 

7810 IF6=-21 THENG3=1: RETURN 

7820 IF6=-16THEN 63=2:RETURN 

7830 IF (6)0) #(6<66+1) THENG3=3: RETURN 

7840 60SUB7650: 60707800 

7850 6320: RETURN 

7920 CURSOR15,17:PRINT"Wait a minute 11 Under ";:RETURN 

7930 605UB7550:60T0720 

7940 INPUT#L (141) XXS AS=LEFTS(XX$, 16) TDS=MIDS (136, 17, 12) 1722VAL (MIDS (X6, 29, 1) ) tP2z VAL (RIDE (3$, 30, 3) ) :NN=N2+1:P3=P2 
{RETURN 


DISK BASIC まとめ  |Chapter 
4 


この 章 は 、DTSK BASIC MZ-2Z001 の 全て の コマ ンド 、 ス テー トメ ント 、 関 数 、 
各種 オペ レー タ を 、 こ の 順に まとめ て いま す 。 


(GP-TB ス テー トメ ント お よび RS-232C ス テー トメ ント に つい て は 、 第 5 章 お 
よび 第 6 章 を 参照 くだ さい 。) 
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4.1 DISK BASIC イン ター 


メン ト 、 ラ ファ シン クション 、 


4.1.1 コマ ンド 


DIR DIR FDd 
DIR FD3 
DIR 

DIR/P DIR FD2/P 

LOAD LOAD" A" 


LOAD FD2@10, "A" 


LIMIT $D000: LOAD" B" 


LOAD/T LOAD/T" C" 

APPEND APPEND FD2@9, "I" 
SAVE SAVE" D" 

SAVE/T SAVE/T" E" 


プリ タ IMZ-2Z001 の コマ ンド 、 ス テー 


オペ レー タ の まとめ 


ドラ イブ g 番 (g デ 1ー4 ) に ある ディ スク の ディ レク トリ (directory) を 表 

示し ます 。 

ディ レク トリ 表示 上 に 示さ れる 情報 は 次 の も の で す 。 

(1) ディ スク の ポリ ュー ム ナ ン バ 

(2) 使用 し て いな い セ クタ の 総数 

(3 登録 きれ て いる ファ イル の モー ド 、 登 録 状態 (LOCK され て いる か 否 
か )、 フ ァイル 名 

ノー ト :CRT 画 面 上 の ディ レク トリ 表示 は 、 フ ァイル を | 画面 ぶん 表示 す 
る と 一 旦 止ま り 、 カ ー ソ ル が 現れ ます 。 更 に 続け て ディ レク トリ 表 
示 を 行う に は | CR | キー を 押し ます が 、 途 中 で 他 の コマ ンド へ 
移る こと も で きま す 。 


ドラ イブ 3 番 に ある ディ スク の ディ レク トリ を 表示 し ます 。DIR コ マン ド を 
実行 する と シス テム は 、 そ の ドラ イブ 番号 を 記憶 し て お り 、 以 下 に 示す 直接 
実行 命令 、 フ ァイル アク セス 命令 で 、 そ れ と 同一 の ドラ イブ を 指定 する 場合 、 
ドラ イブ 番号 を 省略 する こと が で きま す 。 


一 番 最近 DIR コマ ンド を 実行 し て いる ドラ イブ に ある ディ スク の ディ レク ト 
リ を 表示 し ます 。 


ドラ イブ 2 番 に ある ディ スク の ディ レク トリ を ライ ンプ リン タ 上 に 印字 し ま 
す 。 


"A" と いう ファ イル 名 の つい た BASIC テキ スト (BTX) を 読み 出し ま 
す 。 


ドラ イブ 2 番 中 の 、 ボ リュ ー ム ナン パパ 10 番 の ディ スク に つい て 上 記 の 動作 を 
実行 し ます 。 


BASIC テキ スト と リン ク す る た め の 機 械 語 プ ログ ラム ファ イル (OBJ) を 
読み 出す 場合 は 、 LIMIT 命令 に よっ て BASIC エリ ア と 機械 語 エ リア と を 
分 離し て お く 必 要 が あり ます 。 機械 語 プ ログ ラム と の リン ク 命 令 を 参照 の こ 
Es 


"CC" と いう ファ イル 名 の BASIC テキ スト を カセ ッ ト テ ー プ か ら 読 み 出 し 

ます 。 

ノー ト : LOAD コマ ンド また は LOAD/T コマ ンド に よっ て BASIO テ キス ト 
ファ イル の 読み 出し を 実行 する と 、 そ れ 以 前 に テキ スト エリ ア に あ 
っ た プロ グラ ム は 無効 に な り ま す 。 


BASIC テ キス ト エ リア に ある プロ グラ ム テ キス ト と 、 ド ライ ブ 2 番 中 の ボ 
リュ ー ム ナン ババ 9 番 の ディ スク に ある "1 "と いう ファ イル 名 の つい た BA 
SIC テ キス ト を 混ぜ 合わ せま す 。 


現在 テキ スト エリ ア に ある BASIC テ キス ト を 、 "D "と いう ファ イル 名 を 
付け て ディ スク に 書き 込み ます 。 フ ァイル 名 " D '、 フ ァイル モー ド BTX の 
ファ イル が 1 つ 登 録 さ れ ま す 。 


現在 テキ スト エリ ア に ある BASIC テ キス ト を 、" EE" と いう ファ イル 名 を 
付け て カセ モット テー プ に 書き 込み ます 。 


RUN 


VERIFY 


AUTO 


LIST 


LIST/P 


NEW 


CONT 


MON 


BOOT 


KLIST 


RUN 


RUN 1000 


RUN " F " 
(BTX) 


RUN FD3@7, " G" 
(OBJ) 


VERIFY "H" 


AUTO 


AUTO 200, 20 


LIST 
LIST-500 
LIST/P 


NEW 


CONT 


MON 


BOOT 


KLIST 


4.1.2 ファ イル コン トロ ー ル 文 


LOCK 


UNLOCK 


LOCK" ABC" 


LOCK FD4@7, "ABC" 


UNLOCK" ABC" 


100 UNLOCK FD1, "A" 


£7 


現在 テキ スト エリ ア に ある BASIC テキ スト の 先頭 か ら プ ログ ラム を 実行 し 

33 

ノー ト : RUN コマ ンド で は 、 プ ログ ラム の 実行 直前 に 、 す べ て の 変数 の 内 容 
を 0 また は 空 (null) と し ます 。 

行 番号 1000 か ら プ ログ ラム を 実行 し ます 。 

"F" kion’ BASIC テ キス ト フ ァイル を 読み 出し 、 つづ いて 、 テ キス ト の 

先頭 か ら プ ログ ラム を 実行 し ます 。 


ドラ イブ 3 番 中 の 、 ボ リュ ー ム ナン バ 7 番 の ディ スク か ら 機 械 語 プ ログ ラム 
テキ スト "G "を 読み 出し 、 つ づい て その 指定 され た 実行 アド レス か ら プ ロ 
グラ ム を 実行 し ます 。 この 場合 、 シ ステ ム の コン トロ ー ル は 、BASIC か ら 
離れ る こと に な り ま す 。 


現在 BASIC テキ スト エリ ア 内 に ある プロ グラ ム テ キス ト と ファ イル 名 " H" 
で 指定 する カセ モット テー プ フ ァ イ ル の 内 容 を 比較 し ます 。 


テキ スト 作成 時 に 、 行 番号 を 、10、20、30…… と 自動 的 に 発生 し ます 。 


行 番号 を 、200 か ら 20 お き に 、200、220、240…… と 自動 的 に 発生 し ます 。 
AUTO コマ ンド は 、 | BmEAk | キー を 押す こと に よ り 解除 きれ ます 。 


現在 テキ スト エリ ア 内 に ある BASIC テキ スト の 全 リ スト を 表示 し ます 。 
行 番号 500 ま で の リス ト を 表示 し ます 。 


リス ト 表 示 を ライ ンプ リン タ 上 へ 行い ます 。 


現在 テキ スト エリ ア 内 に ある BASIC テ キス ト を 消去 し 、 変 数 エリ ア を クリ 
ア し ます 。LIMIT コマ ンド に よっ て 設定 し た 機械 語 プ ログ ラム エリ ア は ク 
リア され ませ ん 。 


プロ グラ ム 実 行 を 継続 し ます 。 即 ち プ ログ ラム 中 の STOP ス テー トメ ント あ 
る い は 、 キー に よっ て 中 断 され た 箇所 か ら 実 行 を 再開 し ます 。 

プロ グラ ム の 中 断 時 に 、BASIC テ キス ト の エディ ショ ン を 行う と CONT コ 
マン ド は 無効 に なり ま す 。 


シス テム の コン トロ ー ル を BASIC か ら モ ニタ へ 移し ます 。( モ ニタ か ら BASIC 
へ の 復帰 は 、 モ ニタ コマ ンド " J " に よっ て 行う こと が で きま す 。) 


MZ-2000 N IPL を 起動 し て 新た に シス テム ソフ トウ ェ ア を ロー ディ ング し 
33. 


デフ ァ イ ナ ブル ・ フ ァ ン クシ ョ ン ・ キ ー の 定義 状態 を 調べ る た め 、 各 機能 を 
CRT デ ィ ス プレ イ 上 に リス ト し ます 。 


最後 に DIR FDg コ マン ド を 実行 し て いる ドラ イブ (アク ティ ブ ・ ド ライ ブ ) 
中 の ファ イル "ABC" を ロッ ク し ます 。 


ドラ イブ 4 番 中 の 、 ボ リュ ー ム ナン バ 7 番 の ディ スク 上 の ファ イル "ABC『" 
を ロッ ク し ます 。 

ロッ ク さ れ た ファ イル は 、 変 更 ま た は 削除 を 受け 付け ませ ん 。 デ ィ レ クト リ 
表示 で は 、 ロ ッ ク さ れ だ た ファ イル に 水 記号 が 付け て 示さ れ ま す 。 


アク ティ プ ブ ド ラ イブ 中 の ファ イル " ABC" の ロッ ク を 解除 し ます 。 


ドラ イブ 1 番 中 の ディ スク 上 の ファ イル ” A "の ロッ ク 人 解除 を プロ グラ ム 上 
で 実行 し ます 。 
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RENAME 


DELETE 


CHAIN 


SWAP 


RENAME"A" , "B" 


DELETE"A" 


CHAIN FD2@7,"TEXTB" 


CHAIN" TEXT B" 


SWAP FD2@7, "TEXT S-R" 


アク ティ プ ド ライ ブ 中 の ファ イル " A " に つい て 、 フ ァイル 名 を " B" RÆ 
更 し ます 。 


アク ティ プ ブ ド ラ イブ 中 の ファ イル " A" を ディ スク 上 か ら 削 除 し ます 。 


ドラ イブ 2 番 中 に ある ポリ ュー ム ナ ン バ 7 番 の ディ スク 上 に ある BASIC 7 
キス ト "TEXT B" に プロ グラ ム 実 行 を チェ イン し ます 。 即 ち 、'TEXT B" 
を BASIC テ キス ト エ リア に 読み 出し 、 そ の 先頭 か ら プ ログ ラム 実行 を 続け 
ます 。 

この と き 、 テ キス ト エ リア 中 に あっ た も と の プロ グラ ム は NEW され ます が 、 


変数 の 値 や 利用 者 関数 の 内 容 は 、CHAIN され る テキ スト に 受け 渡さ れ ま す 。 
CHAIN 文 の 働き は 、GOTO " file name "と し て 理解 する こと が で きま す 。 


プロ グラ ん を 。 アク ティ プ ド ライ ブ プ 中 の BTX フ ァイル "TEXT B" に チェ 
イン し ます 。 


ドラ イブ 2 番 中 に ある ボリ ュー ム ナ ン バ 7 番 の ディ スク 上 に ある BASIC テ 
キス ト "TEXT S-R "に プロ グラ ム 実 行 を スワ ッ プ し ます 。 

即ち 、 実 行 中 の テキ スト を アク ティ ブ ド ラ イブ 中 の ディ スク 上 に 一 旦 待避 さ 

at, mic. "TEXT S-R "を BASIC テ キス ト エ リア に 読み 出し 、 そ の 先 
頭 か ら プ ログ ラム 実行 を 続け ます 。 

スワ ッ プ され た プロ グラ ム が 終了 し た ら 、 今 度 は 、 も と の テキ スト を 読み 出 

LC, SWAP ステ ー ト メン ト の 次 の ステ ー ト メン ト か ら プ ログ ラム 実行 を 

続け ます 。 各 プロ グラ ム 実 行 の リン ク の 際 に は 、 変 数 の 値 や 、 利 用 者 関数 の 

内 容 は 、 受 け 渡 され ます 。SWAP レベ ル は 1 を 越え て は な り ま せん 。 即ち 、 
SWAP さ れ た テキ スト て 更に SWAP イ ンス トラ クシ ョ ン を 行う こと は で き 

ませ ん 。 

SWAP 文 の 働き は 、 GOSUB "file name" と し て 理解 する こと が で きま す 。 


4.1.3 BSD (BASIC シー ケン シャ ル ア ク セス ・ デ ー タ ファ イル ) コン トロ ー ル 方 


WOPEN# 


PRINT 


CLOSE # 


KILL# 


ROPEN # 


WOPEN #3, FD2@7, 
"SEQ DATA1 " 


PRINT #3,A,A$ 


CLOSE #3 
(corresponding to WOPEN #) 


KILL #3 


ROPEN #4, FD2@7, 
"SEQ DATA 1" 


1 つの BASIC シー ケン シャ ル ア ク セス デー タフ ァイル (BSD) を 作成 す 
る た だ ため に 書き 込み 用 ファ イル を オー プン し ます 。 Hb, 作成 する BSD の フ 
ァイル 名 を " SEQ DATA1" と 定義 し 、 ド ライ ブ 2 番 中 に ある ボリ ュー ム 
ナン バ 7 番 の ディ スク 上 に 、 ロ ジ カ ル ナ ン バ 3 番 と し て ファ イル を オー プン 
し ます 。 

USR 関 数 に 対す る WOPEN# ス テー トメ ント は 、P.86 に 示さ れ て いま す 。 


WOPEN 拉 ステ ー ト メン ト に よっ て ロジ カル ナン バ 3 番 に ファ イル オー プン 
され て いる BSD に 、 BRA, 、 ス トリ ング 変数 A$ の 内 容 を 順に 書き 込み ま 
Fa 

BSD ił, CLOSE # ステ ー ト メン ト に よっ て ファ イル クロ ー ズ が 実行 され 
て は じ め て 1 つの BSD と し て 正式 に 登録 され ます 。 


WOPEN# ステー トメ ント で ロジ カル ナン ペ バ 3 番 に ファ イル オー プン さき され た 
BSD を クロ ー ズ し ます 。 

ファ イル クロ ー ズ に よっ て 、WOPEN## ス テー トメ ント に よっ て 定義 され た 
ファ イル 名 を も つ 1 つの BSD が 指定 ディ スク 上 に 作成 され 、 ロ ジ カ ル ナ ン 
バ (この 場合 3 E) は 未定 義 の も の に 戻し ます 。 


WOPEN# ス テー トメ ント で ロジ カル ナン バ 3 番 に ファ イル オー プン し た B 
SD を キル し ます 。 即ち 、BSD の 作成 を キ を ャ ン セ モル し 、 ロ ジ カ ル ナ ン バ ( こ 
の 場合 3 番 ) を 未定 義 の も の に 戻し ます 。 


BASIC シー ケン シャ ル ア ク セス デー タフ ァイル (BSD) 中 の デー タ を 読み 
出す た め に ファ イル を オー プン し ます 。 即ち 、 ド ライ ブ 2 番 中 の ポリ ュー ム 
ナン バ 7 番 の ディ スク 上 に ある BSD フ ァイル "SEQ DATA 1" £, uz 
カル ナン バ 4 番 と し て ファ イル オー プン し ます 。 

USR 関 数 に 対す る ROPEN# ステ ー ト メン ト は 、P.s6 に 示さ れ て いま す 。 
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INPUT# 


CLOSE # 


INPUT SA, A(1) , B$ 


CLOSE#4 
(corresponding to ROPEN #) 


ROPEN# ス テー トメ ント に よっ て ロジ カル ナン バ 4 番 に ファ イル オー プン 
され て いる BSD か ら 、 順 次 デー タ を 読み 出し 、 配 列 要素 A( 1 ) に 数 値 デ ー 
タ を 、 ス トリ ング 変数 B$ に スト リン グ を 代入 し ます 。 

読み 出す デー タ は 、BSD の 先頭 デー タ か ら 順 次 シー ケン シャ ル に アク セス 
され ます 。 


ROPEN# ス テー トメ ント で 、 ロ ジ カ ル ナ ン バ 3 番 に ファ イル オー プン され 
た BSD を クロ ー ズ し ます 。 
ロジ カル ナン ババ 4 番 は 未定 義 の も の に 戻し ます 。 


4.1.4 BRD (BASIC ラン ダム アク セス ・ デ ー タ ファ イル ) コン トロ ー ル 方 


XOPEN # 


PRINT # ( 


INPUT # ( 


CLOSE # 


KILL# 


IF EOF(# ) 


) 


) 


XOPEN #5, FD3@18, 
"DATA R1" 


PRINT # 5(11 ) , R(11) 


PRINT #5(20) , AR$ , AS$ 


INPUT #5(21) , R$ 


INPUT #5(11) , A(11) , 


A$(12) 


CLOSE#5 


CLOSE 


KILL 


IF EOF(#5) THEN 700 


4.1.5 エラ ー 処 理 文 


ON ERROR 
GOTO 


IF ERN 


IF ERL 


ON ERROR GOTO 1000 


IF ERN=44 THEN 1050 


IF ERL —350 THEN 1090 


IF (ERN —53)*X (ERL=700) 
THEN END 


BASIC ラン ダム アク セス デー タフ ァイル (BRD) pr 9 書き込み プ 読 
み 出 し の た め フ ァイル オー プン を し ます 。(cross open) 

即ち 、 ド ライ ブ 3 番 ボリ ュー ム ナ ン バ 18 番 の ディ スク 上 に ある BRD ファ イ 
"DATA R1 を ロジ カル ナン バ 5 番 に クロ ス オ ー プ ン す る か 、 或いは 、 

まだ 存在 し な い フ ァイル な の で あれ ば 、 新 た に その ディ スク 上 に BRD ファ 
イル DATA R1 "を 作成 する た な め に クロ ス オ ー プ ン し ます 。 


XOPEN## ス テー トメ ント に よっ て ロジ カル ナン ババ ヾ 5 番 に ファ イル オー プン 
され て いる BRD の 要素 11 に 、 1 次 元 数 値 配列 要素 R (11) の 内 容 を 書き 込み 
ます 。 


上 記 と 同じ BRD の 要素 20、 要素 21 に それ ぞ れ 、 ス トリ ング 変数 AR$、AS$ 
の 内 容 を 書き 込み ます 。 BRD 中 の 要素 は 全て 32 バ イト の 固定 長 で ある の で 、 
スト リン グ 長 が 32 バ イト を 越え る と 、 越 えた 分 は 無効 と な り ま す 。 


XOPEN## ス テー トメ ント に よっ て ロジ カル ナン バ 5 番 に ファ イル オー プン 
され て いる BRD の 要素 21 に ある デー タ を スト リン グ 変 数 R$ に 読み 出し ま 
す (代入 し ます )〉 


上 記 と 同じ BRD の 要素 11、 要 素 12 に ある デー タ を それ ぞ れ 、1 次 元 数 値 配 
列 要 素 A(11) 、 1 次 元 ス トリ ング 配列 要素 A$ (12) に 読み 出し ます 。 


XOPEN 拉 ステ ー ト メン ト で ロジ カル ナン ババ 5 番 に ファ イル オー プン され た 
BRD を クロ ー ズ し ます 。 


WOPEN, ROPEN ある い は XOPEN され て いる すべ て の ファ イル を クロ 
ー ズ し ます 。 


WOPEN、ROPEN ある い は XOPEN され て いる すべ て の ファ イル を キル 
し ます 。 


BSD に 対し て INPUT## ス テー トメ ント を 実行 し た 時 、 あ る い は BRD に 対 
LTINPUT#( ) ステ ー ト メン ト を 実行 し た 時 、 も し ファ イル エン ド が 発 
生 し た ら 、 行 番号 700 の 処理 ルー チン へ ヘ ジ ャ ンプ せよ 、 と いう 分 岐 文 で す 。 


プロ グラ ム 実 行 中 に エラ ー が 発生 し た ら 、 行 番号 1000 に ジャ ンプ せよ と いう 
HEXCT. 


エラ ー 番 号 が 44 で あれ ば 行 番号 1050 へ ジャ ンプ せよ と いう 命令 で す 。 

エラ ー 発 生 行 番号 が 350 で あれ ば 行 番号 1090 へ ジャ ンプ せよ と いう 命令 で す 。 
エラ ー 番 号 が 53 で 、 か つ エ ラー 発生 行 番号 が 700 で ある な ら ば 、 プ ログ ラム 
を 終了 せよ と いう 命令 で す 。 


DISK BASIC で は 、 プ ログ ラム 中 で エラ ー が 発生 し た ら 、 変 数 ERN、ERL 
に それ ぞ れ 、 エ ラー 番号 、 エ ラー 発生 行 番号 が モッ ト さ れ ま す 。 
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RESUME 


650 RESUME 


700 RESUME NEXT 


750 RESUME 400 


800 RESUME 0 


エラ ー 処 理 後 、 メ イン プロ グラ ム へ 復帰 する 命令 で す 。 復帰 の し 方 に よっ て 
次 の よう な それ ぞ れ の 使い 方 が で きま す 。 


エラ ー が 発生 し た 命令 へ 再び コン トロ ー ル を 移し ます 。 
エラ ー が 発生 し た 命令 の 次 の 命令 へ コン トロ ー ル を 移し ます 。 


行 番号 400 へ コン トロ ー ル を 移し ます 。 


プロ グラ ム の 先頭 へ コン トロ ー ル を 移し ます 。 


4.1.6 カセ ッ ト テ ー プ ・ デ ー タ ファ イル 入出 力 文 


WOPEN/〒 


PRINT/T 


CLOSE/T 
ROPEN/T 


INPUT/T 


CLOSE/T 


4.1.7 RAX 


LET 


4.1.8 入出 力 文 


PRINT 


INPUT 


10 WOPEN/T " DATA-1" 


20 PRINT/T A, A$ 


30 CLOSE/T 


110 ROPEN/T " DATA-2" 


120 INPUT/T B, B$ 


130 CLOSE/T 


<LET> A=X+3 


10 PRINT A 


HE 


100 PRINT A; A$,B; B$ 


110 PRINT " COST=" ; CS 


120 PRINT 


10 INPUT A 


20 INPUT A$ 


30 INPUT " VALUE? " ; D 


40 INPUT X,X$,Y,Y$ 


カセ ッ ト テ ー プ ・ デ ー タ ファ イル " DATA-1" を 書き 込み オー プン し ます 。 


数 値 変数 へ 人 、 ス トリ ング 変数 A$ の 内 容 を WOPEN/T に よっ て オー プン さき 
れ て いる カセ モッ ト テ ー プ デー タフ ァイル に 書き 込み ます 。 


WOPEN/T に よっ て オー デン し た ファ イル を クロ ー ズ し ます 。 
カセ モット テー プ ・ デ ー タ ファ イル "DATA-2 " を 読み 出し オー プン し ます 。 


ROPEN/T に よっ て オー プン し た カセ ッ ト テ ー プ ・ デ ー タ ファ イル 中 の デ 
ー タ を 順に 読み 出し 、 数 値 変数 B 、 ス トリ ング 変数 B$ に 代入 し ます 。 


ROPEN/T に よっ て オー デン し た ファ イル を クロ ー ズ し ます 。 


数 値 変数 X と 数 値 デ ー タ 3 の 加算 結果 を 数 値 変数 A に 代入 し ます 。 LET は 
省略 で きま す 。 


CRT デ ィ ス プレ イ 上 に 数 値 変 数 A の 内 容 を 表示 し ます 。 

CRT デ ィ ス プレ イ 上 に スト リン グ 変 数 A $ の 内 容 を 表示 し ます 。 
数 値 変数 と スト リン グ 変 数 を 混合 し て 使用 で きま す 。 ま た 区 切り で セミ コロ 
ン が 使わ れる と 、 ス ペー ス な し で 続け て 表示 され 、 コ ンマ が 使わ れる と 次 の 
表示 位置 (10 娘 字 ご と の 区 切り ) か ら 表 示さ れ ま す 。 


クォーテーション マー ク 「"」 


表示 され ます 。 


で 囲ま れ た スト リン グ は その 内 容 が その まま 


PRINT だ け の 場合 は 、 行 替え を に な り ま す 。 


キー ボー ド か ら 変 数 A に 対す る 数 値 を 入力 し ます 。 


キー ボー ド か ら ス トリ ング 変数 A$ に 対す る スト リン グ を 入力 し ます 。 


キー ボー ド か ら 入 力 す る 前 に 、 ス トリ ング の VALUE? を 表示 させ ます 。 ス 
トリ ング と 変数 の 区 切り は セ モミ コロ ン 「: 」 を 使い ます 。 


数 値 変数 や スト リン グ 変 数 は コン マ 「 , 」 で 区 切れ ば 混合 し て 使用 で きま す 
が 、 入 力 す る 際 に は 変数 の 型 に 合わ せる 必要 が あり ます 。 
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GET 


READ —DATA 


RESTORE 


4.1.9 )v— 7X. 


FOR —TO 
NEXT 


4.1.10 $i xc 


GOTO 


GOSUB 
—RETURN 


10 GET N 


20 GET K$ 


10 READ A, B, C 
1010 DATA 25, 一 0.5 , 500 


10 READ H$,H,S$,S 
30 DATA HEART , 3 
35 DATA SPADE , 11 


10 READ A, B,C 

20 RESTORE 

30 READ D, E 

100 DATA 3,6,9,12,15 


700 RESTORE 200 


10 FOR A=1 TO 10 
20 PRINT A 
30 NEXT A 


10 FOR B=2 TO 8 STEP 3 


20 PRINT B 
30 NEXT 


10 FOR A=1 TO 3 


20 FOR B=10 TO 3048 
30 PRINT A,B ル 
40 NEXT B l 


プ 
50 NEXT A 


60 NEXT B,A 
70 NEXT A,B 


100 GOTO 200 


100 GOSUB 700 


800 RETURN 


N-=9> 


キー ボード か ら 数 値 変数 N に 対し て 、 1 文字 の 数 値 を 入力 し ます 。 そ の と き 
キー が 押さ きれ て いな いと 、0 が 入力 され ます 。 


キー ボー ド か ら ス トリ ング 変数 K$ に 対し て 、 1 個 の スト リン グ を 入力 し ま 
す 。 そ の と き キ ー が 押さ きれ て いな いと 、A$ は 空 に な り ま す 。 


DATA 廊 に 置か れ た 定数 また は スト リン グ を READ 文 の 中 に 示さ れ た 変数 に 

代入 する 命令 で す 。 READ 娘 中 の 変数 と 、 そ れ に 対応 する DATA 文 中 の 各 デ 

ー タ は 、 数 値 変数 な ら 数 値 ア デー タ 、 ス トリ ング 変数 な ら ス トリ ング デー タ と 、 
変数 と デー タ の 形 が 一 致し な く て は な り ま せん 。 


FED READ~ DATA 廊 の 実行 に よっ て 数 値 変数 へ 人 、B、C の それ ぞ れ に 数 
値 デ ー タ 25、 一 0.5、500 が 代入 きれ ます 。 


READ 文 の 最初 の 変数 、 す な わ ち スト リン グ 変 数 H$ LC DATA 文 の 最初 の 
デー タ 、 す な わ ち スト リン グ デ ー タ "HEART "が 代入 され ます 。 次 に 2 番 
目 の 変数 HH に は 、 数 値 デ ー タ 3 が 代入 され 、 次 々 に 読み 込ま れ て 行き ます 。 


READ…DATA 命 令 で は 、READ 命 令 に つれ て DATA 文 中 か ら 読み 込む デ 
ー タ が 移っ て 行き ます が 、RESTORE 文 を 使う こと に よっ て 読み 込む デー 
タ を テキ スト 中 の DATA 文 の 最初 に 戻す こと が で きま す 。 


左 の 例 で は 、 行 番号 10 の READ 文 に よっ て 、 変 数 A 、B、C と に それ ぞ れ 、 
3、6 、9 の 値 が 代入 され ます が 、 次 に RESTORE 文 が 置か れ て いる の で 、 
行 番号 30 の READ に よっ て 変数 D、E に 代入 され る 値 は 、12、 15 と は な ら ず 
に 、 そ れ ぞ れ 3 、6 が 代入 きれ る こと に な り ま す 。 


READ 一 DATA 廊 に お ける デー タ 読 み 出 し ポイ ンタ を 、 行 番号 200 の DATA 
文 の 先頭 へ 移し ます 。 


行 番号 10 は 変数 人 を 1 か ら 10 ま で 変化 させ よ と いう 命令 で 、 最 初 A の 値 は 1 

と な り ま す 。 行 番号 20 で A の 値 が CRT デ ィ ス プレ イ に 表示 され る の で 数 値 
1 が 表示 され ます 。 次 に 行 番号 30 で A の 値 は 2 に な っ て この ルー プ を 繰り 返 
し ます 。 こ うし て A の 値 が 10 に な る まで この ルー プ ' が 繰り 返さ れ ま す 。( ル レー 
プ を 終了 し た 時 点 で A に は 11 の 値 が 入っ て いま す 。) 


行 番号 10 は 変数 B を 2 から 8 まで 、3 ず つ 大 きく し て 変化 させ よ と いう 命令 
C3. STEP の 値 を 負 に し て 変数 の 値 を 小さ くし て 行く こと も で きま す 。 


変数 A と B に つい て FOR…… NEXT エ ルー プ ' を 重ね た 例 で す 。B ル ー プ は A 
ルー プ の 内 部 に 置か れ て いる と ころ に 注目 し て 下さ い 。 ル ー プ は 2 重 、3 重 
ans と ネス ティ ング する こと が で きま す が 、 内 側 の ルー プ は 必ず 外側 の ルー 
プ 内 に 閉じ て いな く て は な り ま せん 。 

FOR…… NEXT の ネス ティ ング は 15 レベ ル を 越え て は な り ま せん 。 


前 の 2 重 シ ルー プ で 、 行 番号 40 と 50 を 、 左 の 行 番号 60 の よう に 1 つの NEXT 
文 に まとめ る こと が で きま す 。 し か し 行 番号 70 に 示し た よう な オペ ラン ド で 
は エラ ー に な り ま す 。 


行 番号 200 へ ジャ ンプ (ニプロ グラ ム 実 行 を 移す こと ) し ます 。 


行 番号 700 の サ プ ブルー チン へ 分 岐 (サブ プルー チン を コー ル す る こと ) LE 
す 。RETURN 文 で サフ レー チン の 実行 を 終了 し 、 メ イン プロ グラ ム で GOSUB 
命令 を し た 次 の ステ ー ト メン ト へ 戻り ます 。 
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IF— THEN 10 IF A720 THEN 200 


50 IF B<3 THEN B=B+3 


IF~GOTO 100 IF A>=B THEN 10 
IF~GOSUB 30 IF A=B*2 GOSUB 90 
ON~GOTO 50 ON A GOTO 70, 80, 90 
ON~GOSUB 90 ON A GOSUB 700 , 800 
4.1.11 定義 文 
DIM 

10 DIM A(20) 


20 DIM B(79 , 79) 


30 DIM C1$ (10) 


40 DIM K$(7, 5) 


DEF FN 100 DEF FNA(X)—X^2-X 
110 DEF FNB(X)=LOG(X) 
+1 


120 DEF FNZ(Y)=LN(Y) 


DEF KEY 15 DEF KEY(1)=LIST 1 
25 DEF KEY(2)=LOAD! 
RUN 1 


4.1.12 注釈 文 と コン トロ ー ル 文 


REM 200 REM JOB-1 
STOP 850 STOP 
END 1999 END 


変数 A の 値 が 20 よ り 大 な ら 、 行 番号 200 ヘ へ ジャ ンプ し ます 。A が 20 以 下 な ら 
次 の 行 を 実行 し ます 。 


変数 B の 値 が 3 より 小 な ら 変 数 B に B 十 3 の 値 を 代入 し ます 。B が 3 以上 な 
ら 次 の 行 を 実行 し ます 。 


変数 A の 値 が 変数 B の 値 以上 な ら 行 番号 10 ヘ ジャ ンプ し ます 。A が B よ り 小 
な ら 次 の 行 を 実行 し ます 。 


変数 A の 値 が 変数 B の 値 の 2 倍 に 等 し いな ら 行 番号 90 の サ プ ブル ー チ ン へ 分 岐 
し ます 。 等 し く な いな ら 次 の 行 を 実行 し ます 。 


(条件 文 の あと に マル チ ス テー トメ ント が 来る 場合 、ON 文 は 条件 が 成り 立た 
な いと き 実 行く され ます が 、IF 文 は 条件 が 成り 立た な いと き 次 の 行 番号 へ 移 
り マ ル チ ス テー トメ ント は 無視 され ます 。) 


変数 A の 値 が 1 な ら 行 番号 70 へ 、 2 な ら 行 番号 80 へ 、 3 な ら 行 番号 90 ヘ へ ジャ 
ンプ し ます 。A が 0 また は 4 以上 な ら 次 の 文 を 実行 し ます 。ON に は INT の 
機能 が 含ま れ て お り A が 2.7 な ら ば 2 の 場合 と 同様 に 行 番号 80 ヘ へ ジャ ンプ し 
ます 。 


変数 A の 値 が 1 な ら 行 番号 700. 2 な ら 行 番号 800 の サブ ルーチン へ 分 岐 し 
ます 。A が 0 また は 3 以上 な ら 次 の 文 を 実行 し ます 。 


配列 を 使う 場合 に は 、 こ の DIM (dimension OR&) 文 で 、 配 列 要 素 の 最大 を 
宣言 し て お か な けれ ば な り ま せん 。 配 列 要 素 は 0 か ら 、 最 大 255 まで 使え ま 
KE 


1 次 元 数 値 配列 A4( ) に つい て 、 配 列 要素 を A(0 ) か ら A(20) まで 21 個 用 意 
し ます 。 


2 次 元 数 値 配列 B( ) に つい て 、 配 列 要 素 を B(0. 0) か ら B(79, 79) ま で 
6400 個 用 意 し ます 。 


1 次 元 ス トリ ング 配列 C1$( ) に つい て 、 配 列 要素 を C1$(0 ) か ら C1$ 
(10) まで 11 個 用 意 し ます 。 


2 次元 スト リン グ 配 列 K$( ) に つい て 、 配列 要素 を 、K$(0 ,0) か ら K$ 
(7 , 5 ) ま で 48 個 用 意 し ます 。 


DEF FN で 関数 の 定義 を し ます 。 行 番号 100 は X*ーX を FNA(X) に 、 30110 
は logi。X 十 1 を FNB(X) に 、 文 120 は log。Y を FNZ(Y) に 定義 し ます 。 関数 
は 1 変数 に 限り ます 。 


DEF KEY 文 は 、 デ ファ イナ ブル ・ フ ァ ン クシ ョ ン キ ー の 機能 定義 を 行い ま 
す 。 行 番号 15 の DEF KEY 娘 は 、 フ ァ ン クシ ョ ン キ ー 1 番 に 、 LIST 


の 機能 を 定義 し 、 行 番号 25 で は 、LOAD : RUN の 機能 


が 定義 され ます 。 


REM は 注釈 文 で あり 、 プ ログ ラム 実行 の 際 無 視 き され ます 。 


プロ グラ ム の 実行 を や め て 、 命 令 待ち と な り ま す 。 こ こ で CONT 命令 を 与 
そる と 、 プ ログ ラム を 続行 し ます 。 


プロ グラ ム の 最後 を 表わし ます 。 プロ グラ ム の 実行 を や め ま す が 、CONT 命 
令 を 与え を る と 、 さ ら に 先 の プロ グラ ム を 実行 し ます 。 
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CLR 300 CLR 
CURSOR 50 CURSOR 25, 15 
60 PRINT "ABC" 
CSRH 
CSRV 
CONSOLE 10 CONSOLE S10, 20 
20 CONSOLE C80 
30 CONSOLE C40 
40 CONSOLE R 
50 CONSOLE N 
60 CONSOLE GN 
70 CONSOLE GH 
CHANGE 10 CHANGE 
REW 710 REW 
FAST 720 FAST 
SIZE ? SIZE 
TI$ 100 TI$=" 222030 " 
4.1.13 ミュ ー ジ ッ ク コ ント ロー ル 文 
MUSIC 
TEMPO 


300 TEMPO 7 
310 MUSIC " DE#FGA" 


300 M1$= " C3EG+C" 

310 M2$— " BGD-G" 

320 M3$ = " C8R5" 

330 MUSIC M1$ , M2$ , M3$ 


数 値 を と る 変数 お よび 配列 要素 の 内 容 を すべ て 0 、 ス トリ ング を と る 変数 お 
よび 配列 要素 の 内 容 を すべ て 空 (null) と し ます 。 


CRT デ ィ ス プア "レイ の 任意 の 箇所 に カー ソル を 移動 きせ る の が CURSOR で 
す 。 駐 軸 方 向 に は 、40 キ ャ ラク タモ ー ド の と き は 0 一 39、80 キ ャ ラク タモ ー 
ド の と き は 0 一 79、Y 軸 方 向 に は 上 端 か ら 0 24 の 数値 ま た は 変数 で 位置 を 
指定 し ます 。 左 の 例 で は 、 ス トリ ング " ABC" は 、 画面 の 左端 か ら 26 番 目 、 
上 端 か ら 16 番 目 の カ ー ソ ル 位 置か ら 表 示さ れ ま す 。 

現在 の カー ソル 位置 の X 座 標 (水平 位置 ) を 示す シス テム 数 値 変 数 で す 。 
現在 の カー ソル 位置 の Y 座 標 (垂直 位置 ) を 示す シス テム 数 値 変数 で す 。 
CRT デ ィ ス プレ イ 上 の スク ロー ル エ リア を 第 10 行 か ら 20 行 まで と し ます 。 
CRT デ ィ ス プレ イ 上 の キャ ラク タ 表 示 を 80 キ ャ ラク タン グ 行 に し ます 。 
CRT デ ィ ス プレ イ 上 の キャ ラク タ 表 示 を 40 キ ャ ラク タン グ 行 に し ます 。 


CRT デ ィ ス プレ イ を リバ ー ス 表示 と し ます 。 


CRT デ ィ ス プレ イ を ノー マル 表示 に 戻し ます 。 


CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク 表 示 の リゾ リュ ーション モー ド を 320 X 
200 ド ッ ト ン 画面 に し ます 。 


CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク 表 示 の リゾ リュ ーション モー ド を 640X 
200 ド ッ ト ン 画面 に し ます 。 


メイ ン キ ー ボ ー ド 上 の 26 個 の アル ファ ベッ トキ ー の シフ ト ポ ジ ショ ン 大 文字 
グ 小 文字 を 逆 に し ます 。 


カセ ッ ト テ ー プ を 巻き 戻し ます 。 
カセ モット テ ー プ を 早送り し ます 。 
BASIC テキ スト エリ ア の 未 使用 バイ ト サ イ ズ を 表示 させ ます 。 


内 蔵 時 計 を 午後 10 時 20 分 30 秒 に 合わ せま す 。 時 刻 デ ー タ は クォーテーション 
マー ク 内 に 6 桁 の 数 字 で 表現 し ます 。 


音楽 の 自動 演奏 を させ る 命令 で す 。 文字 通り TEMPO 文 で 指定 され た テン ポ 
に の っ て 、MUSIC 文 に ある クォーテーション 「" 」 内 の 旋律 の スト リン グ 
(音程 と 音 長 の 指定 され た 音符 の 集まり に 相当 し ます ) を 音 に し て スピ ー カ を 
鳴ら し ます 。 


行 番号 300 で テン ポ が 7 (最も 速い 速度 で す ) に 指定 され ます 。 行 番号 310 で 、 
7 の テン ボ で 中 音域 の レミ ファ の ## ソ ラ が 続け て 演奏 され ます 。 TEMPO 文 
が 無かっ た ら テ ン ポ は デフ ォ ル ト 値 で 演奏 され ます 。 


この 例 で は 、 旋 律 を 3 つの スト リン グ 変 数 に 代入 し て MUSIC 命令 を 実行 き 
せる も の で す 。 五 線 符 で 示す と 下 の 音 符 が 演奏 され ます 。 な お 、TEMPO 文 
が あり ませ ん の で 、 デ フォ ルト 値 の テン ポ で 演奏 され ます 。 
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4114 グラ フィ ッ ク コ ント ロー ル 文 


GRAPH 


SET 


RESET 


LINE 


BLINE 


POSITION 


PATTERN 


10 GRAPH Il 


20 GRAPH OI 


30 GRAPH 023 


40 GRAPH 0123 


50 GRAPH O0 


60 GRAPH C 


70 GRAPH F 


80 GRAPH I1,C,01 


300 SET 160 , 100 


310 RESET 160 , 100 


400 LINE 110,50, 210, 
50,210,150, 110, 150, 
110 , 50 


20 GRAPH I2, C, O2 
30 POSITION 0, 50 
40 PATTERN 8, A$ 


10 C$=" ABCDEF" 
20 PATTERN 4, C$ 


グラ フィ ッ ク エ リア へ の デー タ 転 送 モ ー ド を 、 ペ ー ジ 1 (グラ フィ ッ ク エ リア 
1) に 設定 し ます 。 


グラ フィ ッ ク エ リア 1 を 表示 モー ド と し ます 。 

グラ フィ ッ ク エ リア 2 お よび 3 を 表示 モー ド と し ます 。 

グラ フィ ッ ク エ リア 1 、2 お よび 3 を 表示 モー ド と し ます 。 

グラ フィ ッ ク エ リア の 表示 を 行わ な いよ うに し ます 。 

GRAPH I 娘 に よっ て デー タ 転 送 モ ー ド と な っ て いる エリ ア を クリ ア し ます 。 
転送 モー ド と な っ て いる グラ フィ ッ ク エ リア を フィ ル (fill) し ます 。 


3 つの 命令 を 行う も の で は じ め に 、 デ ー タ 転送 を グラ フィ ッ ク エ リア 1 と し 、 
続い て エリ ア 1 を クリ ア し て 、 表 示 モ ー ド も エリ ア 1 と Les. 

グラ フィ ッ ク エ リア の 任意 の 位置 に ドッ ト を 表示 し ます 。 

オペ ラン ド は XX 座標 、Y 座 標 の 順に 指定 し ます 。 


方 向 は 画面 の 左 か ら 右 へ 0 一 319 (ハイ リゾ リュ ーション モー ド の 場合 は 0 
ー639) 、Y 方 向 は 画面 の 上 か ら 下 へ 0 一 199 の 範囲 で 指定 し ます 。 


画面 の 中 央 に ドッ ト を セッ ト し ます 。(320 ぶ 200 ド ッ ト / 画 面 の 場合 ) 
SET 文 の 逆 で 、 オ ペラ ンド で 指定 し た 位置 を Black ドッ ト と し ます 。 
画面 の 中 央 の ドッ ト を リモ ッ ト し ます 。 (320※200 ド ッ ト / 画 面 の 場合 ) 


SET 文 の 拡張 で 、 オ ペラ ンド で 指定 する ドッ ト 位 置 を 次 々 に 直線 で 結び ま 
す 。 


画面 の 中 央 に 1 辺 の 長 さ 100 の 正方 形 を 描き ます 。(320X200 ド ッ ト / 画 面 の 
場合 ) 


LINE 文 の 送 で 、 オ ペラ ンド で 指定 する 直線 を Black ラ イン と し ます 。 


グラ フィ ッ ク エ リア 上 の ポジ ショ ン ポ イン タ を 設定 し ます 。 次 の PATTERN 
文 は 、 こ の ポジ ショ ン ポ イン タ の 位置 か ら 実行 され ます 。 


行 番号 20 で 、 グ ラフ ィ ッ クエ リア 2 を 転送 モー ド 、 ま た 表示 モー ド と し て 、 
エリ ア を クリ ア し 、 行 番号 30、40 で 座標 位置 (0 , 50) か ら グ ラフ ィ ッ クス パ 
ター ン を 表示 し ます 。 グ ラフ ィ ッ クッ バ パターン は 下 か ら 上 方 へ 8 段 重 ね で 表示 
され ます 。 


POSITION 廊 で 指定 され た ポジ ショ ン ポ イン タ 位 置か ら 、 任 意 の ドッ トノ \ 
ター シン を 8 ピッ ト 単 位 で 表示 し ます 。 ド ッッ トン ペタ ー ン は スト リ シ グ デー タタ 叉 
は 、 ス トリ ング 変数 で 与え を ます 。 オ ペラ ンド の 第 一 項 は 、8 ビッ ト 単 位 の ド 
ッ ト パ ター ン を 上 下 ど ちら の 方 向 に 何 段 組 に する か 決め ます 。 


次 の ドッ トペ ター ン が 表示 され ます 。 


ググ 
E HH NE T M 
(AIl A BH HEN a 


85 


POINT 


POSH 


POSV 


4.1.15 


LIMIT 


POKE 


PEEK 


30 PATTERN —4, C$ 


100 ON POINT &, Y) 


GOTO 10, 20,30,40, 


50 , 60 , 70 


機械 語 プ ログ ラム コン トロ ー ル 文 


100 


100 


100 


300 


200 
210 


120 


130 


150 


160 


LIMIT 49151 


LIMIT A 


LIMIT $BFFF 


LIMIT MAX 


LIMIT $BFFF 
LOAD FD2, "S-R1" 


POKE 49450 , 175 


POKE AD, DA 


A=PEEK(49450) 


B=PEEK(C) 


次 の ドッ トノ パタ ー ン を 表示 し ます 。 


レ / 
LES | | | E ma BER Ze 
E ーー ロコ 7 
| Z| | Z| | 


4B 


グラ フィ ッ ク エ リア 上 の 座標 点 (X, Y) が セ モット され て いる か リセ ッ ト さ 
れ て いる か で 分 岐 す る 文 で す 。 


POINT 関 数 の 関数 値 ポイ ント 情報 

(site グラ フィ ッ ク エ リア 1 , 2 お よび 3 と も リセ ッ ト 
きれ て いる 。 

EE グラ フィ ッ ク エ リア 1 の み セ モット され て いる 。 

E グラ フィ ッ ク エ リア 2 の み セ モッ ト さ れ て いる 。 

E グラ フィ ッ ク エ リア 1,2 の み セ モッ ト さ れ て いる 。 

A eean グラ フィ ッ ク エ リア 3 の み セ ッ ト さ れ て いる 。 

Bj eeuneeseueeererern グラ フィ ッ ク エ リア 1,3 の み セ ッ ト さ れ て いる 。 

6 HH グラ フィ ッ ク エ リア 2,3 の み セ モット され て いる 。 

| ee ee グラ フィ ッ ク エ リア 1,2,.3 す べ て が セッ ト さ れ て 
いる 。 


GE: 上 記 情報 は グラ フィ ッ ク エ リア 1 、2、3 す べ て が 装備 され て いる 場 
合 の も の で あり 、 い ずれ か の エリ ア が 、 装 備 さ れ て いな い 場 合 に つい て は 、 
BASIC/MONITOR MANUAL を 参照 くだ さい 。) 


グラ フィ ッ ク 表 示 エ リア 上 の ポジ ショ ン ポ イン タ の 現在 の 双 座 標 を 示す シス 
テム 変数 。 


POSH の と り 得 る 値 は 

0 ミ POSH ミ 319 (ノー マル リゾ リュ ーション モー ド ) 
0 SPOSHS639 (ハイ リゾ リュ ーション モー ド ) 
と な り ま す 。 


グラ フィ ッ ク 表 示 エ リア 上 の ポジ ショ ン ポ イン タ の 現在 の Y 座 標 を 示す シス 
テム 変数 。 


BASIC プ ログ ラム で 使用 する エリ ア を 、49151 番 地 (16 進 で BFFF) に 制 
限 し ます 。 


BASIC プロ グラ ム で 使用 する エリ ア を 、 変 数 A の 値 の 番地 に 制限 し ます 。 


BASIC プログ ラム で 使用 する エリ ア を 、16 進 番地 BFFF に 制限 し ます 。 
16 進 表現 する 場合 は 、 こ の よう に " $ "マー ク を 用 いま す 。 


BASIC プロ グラ ム で 使用 する エリ ア を 、 メ モリ の 最大 に 戻し ます 。 
機械 語 プ ログ ラム ファ イル (OBJ) "S-R1 "が 、 ローディ ング アド レス 
C000 以上 の も の で あれ ば 、 左 の プロ グラ ム に よっ て 、 機 械 語 リ ンク エリ ア 
内 に 、" S-R1 "が 、 ド ライ ブ 2 番 中 の ディ スケ ッ ト よ り 読 み 出さ れ ま す 。 
10 進 番地 49450 に デー タ 175 (10 進 表現 ) を セッ ト し ます 。 


変数 AD で 指定 する 番地 に 、 変 数 DA で 示さ れる 値 (0 一 255 の 範囲 ) を セッ 
ト し ます 。 


10 進 番地 49450 に は いっ て いる デー タ を 10 進 数 に 直し て 変数 A に 代入 し ます 。 


変数 C で 指定 され る 10 進 番地 に は いっ て いる デー タ を 10 進 数 に 直し て 変数 B 
に 代入 し ます 。 


86 


USR 


500 USR(49152) 


550 USR(AD) 


570 USR($ C000) 


600 WOPEN#8,USR 
($ C000) 

610 PRINT#8 , A$ 

620 CLOSE#8 


700 ROPEN#9,USR 
( $C100) 

710 INPUT#9 , B$ 

720 CLOSE#9 


41.146 プリ ンタ ・ コ ント ロー ル 文 


PRINT/P 


IMAGE/P 


COPY/P 


PAGE/P 


10 PRINT/P A, A$ 


20 PRINT/P CHR$(5) 


30 IMAGE/P CHR$(255) , 
"UU" 


10 COPY/P 1 


20 COPY/P 2 


30 COPY/P 3 


40 COPY/P 4 


50 COPY/P 5 


60 COPY/P 6 


70 COPY/P 7 


80 COPY/P 8 


100 PAGE/P 20 


10 進 番地 49152 に プロ グラ ム の コン トロ ー ル を 移し ます 。 こ の コン トロ ー ル 
の 移動 は 、 機 械 語 の CALL コマ ンド と 同じ 機能 を 持っ て いま す 。 従 っ て 、 
機械 語 プ ログ ラム に 、RET コ マン ド 、(10 進 コー ド で 201) が ある と 、 BA 
SIC プロ グラ ム へ リタ ー ン し ます 。 


変数 AD で 指定 され る 10 進 番地 を CALL し ます 。 

16 進 番地 C000 を CALL し ます 。 

USR ($ C000) を 、 ロ ジ カ ル ナ ン バ 8 番 に 定義 し て 書き 込み オー プン し ま 
す 。 行 番号 610 で 、 ス トリ ング 変数 A$ の 内 容 が セッ ト さ れ て いる バッ ファ の 


先頭 番地 を DE レジ スタ に セッ ト し 、 デ ー タ の 長 さ (最大 255 バイ ト ) を B 
C レ ジス タ に モット し て 、USR ($C000 を 実行 し ます 。 


USR ($C100) を 、 ロ ジ カ ル ナ ン バ 9 番 に 定義 し て 読み 出し オー プン し ま 
す 。 行 番号 710 で USR ($C100) が 実行 され ます が 、 コ ー ル され た 機械 語 
ルー チン で コー ル さ れ た 時 の DE レジ スタ の 示す アド レス を 先頭 と し て 、 ス 
トリ ング デー タ を セッ ト し 、 そ の 長き を BC レジ スタ に セッ ト し て リタ ー ン 
する と 、B$ に その スト リン グ デ ー タ が 代入 され ます 。 


PRINT と 同様 の 機能 を 、 オ プシ ョ ン の プリ ンタ に 対し て 実行 し ます 。 プ リ 
ンタ が 接続 され て いな い 時 は エラ ー に な り ま す 。 


数 値 変数 A の 内 容 、 続 け て スト リン グ 変 数 A$ の 内 容 を プリ ンタ に プリ ント 
ら に まず 。 


プリ ンタ の フォ ー ム ・ フ ィ ー ド を 行い ます 。(CHR$( 5 ) は プリ ンタ コン ト 
ロー ルコ ー ド で す 。) 


プリ ンタ に 任意 の イメ ー ジ ドッ トバ パタ ー ン を プリ ント し ます 。 


プリ ンタ に CRT デ ィ ス プレ イ 上 の キャ ラク タ 表 示 の コピ ー を と り ま す 。 


プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 1 の コピ ー を と り ま す 。 
プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 2 の コピ ー を と り ま す 。 


プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 1 と 2 の コピ ー を と り 
ます 。 


プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 3 の コピ ー を と り ま 
d 


プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 1 と 3 の コピ ー を と 
り ま す 。 


プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 2 と 3 の コピ ー を と 
り ま す 。 


プリ ンタ に CRT デ ィ ス プレ イ 上 の グラ フィ ッ ク エ リア 1 、2 お よび 3 の コ 
ビー を と . り ます 。 


プリ ンタ の 1 ペー ジ を 20 行 に 設定 し ます 。 


4.1.17 I/O 入出 力 文 


INP 


OUT 


4.1.18 


ABS 


INT 


SGN 


SQR 


SIN 


cos 


TAN 


ATN 


EXP 


LOG 


数 値 関数 


10 INP @12,A 
20 PRINT A 


30 B=A*2+0.3 
40 OUT @13,B 


100 


100 


100 


100 


100 


110 


200 


210 


300 


310 


400 


410 


100 


100 


A=ABS(X) 


A=INT(X) 


A=SGN(X) 


A=SQR(X) 


A=SIN(X) 


A=SIN(30 2/180) 


A=COS(X) 


A=COS (200K 2/180) 


A=TAN(X) 


A=TAN(Y>K 7/180) 


メーATN(A) 


Y —180/ 2 ATN(A) 


A=EXP(X) 


A=LOG(X) 
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I/O ポー ト 番 号 を 指定 し て 、 そ の ボー ト 上 に ある デー タ の 読み 出し を 行い ま 
す 。 


行 番号 10 で 、I/O ポー ト 番 号 12 (10 進 ) に ある デー タ を 、 変 数 A に 読み 出し 
ます 。 


外部 デバ イス に デー タ を 送る た め 、1/O ポー ト 番 号 を 指定 し て デー タ を 出力 
し ます 。 


行 番号 40 で 、 変 数 B の 値 を 1/O ポー ト 番 号 13 の 出力 ポー ト へ 出力 し ます 。 


変数 X の 値 の 絶対 値 | X | を 変数 A に 代入 し ます 。 カ ッ コ 内 は 定数 、 数 式 で 
も か まい ませ ん 。 
(ff) ABS (—3)=3 
ABS (12)—12 


変数 X の 値 に つい て 、X を 越え な い 最 大 の 整数 を 求め て 変数 A に 代入 し ます 。 
カッ コ 内 は 定数 、 数 式 で も か まい ませ ん 。 
(ff) INT (3 .87)=3 
INT (0 .6)=0 
INT (一 3 .87) ニ ー4 


変数 X の 値 に つい て X ぐ 0 の と き 一 1 を 、Xー0 の と き 0 を 、X>0 の と き 、 
1 を 変数 A に 代入 し ます 。 カ ッ コ 内 は 定数 、 数 式 で も か まい ませ ん 。 
(ff SGN (0.4)=1 
SGN (0)=0 
SGN (—400)——1 


変数 X の 値 に つい て 、 ソ XX の 値 を 求め て 変数 A に 代入 し ます 。 カ ッ コ 内 は 定 
数 、 数 式 で も か まい ませ ん が 、 正 また は 0 の 値 で な けれ ば な り ま せん 。 


変数 X の 値 (ラジ アン ) に つい て 、 sinX の 値 を 求め 変数 A に 代入 し ます 。 カ 
ッ コ 内 は 定数 、 数 式 で も か まい ませ ん 。 ラ ジア ン と 度 の 関係 は 、 


- 5 23 ` 
1 E —1i807 Dy 


で すか ら 、 だ た と えば sin30* の 値 を 変数 A に 代入 する に は 行 番号 110 の よう に 
し ます 


変数 X の 値 (ラジ アン ) に つい て 、cosX の 値 を 求め 変数 A に 代入 し ます 。 み カ 
ッ コ 内 は 定数 、 数 式 で も か まい ませ ん 。 度 で 計算 する に は SIN 関 数 と 同様 の 
方 法 を 使い ます 。 行 番号 210 は cos200* の 値 を 変数 A に 代入 する 命令 文 で す 。 


変数 X の 値 (ラジ アン ) に つい て 、 tanX の 値 を 求め 変数 A に 代入 し ます 。 カ 
ッ コ 内 は 定数 、 数 式 で も か まい ませ ん 。 度 で 計算 する に は SIN 関 数 と 同様 の 
方 法 を 使い ます 。 行 番号 310 は tanY* の 値 を 変数 A に 代入 する 命令 文 で す 。 


変数 X の 値 に つい て 、tan-1X の 値 (ラジ アン ) を 求め 変数 A に 代入 し ます 。 
カッ コ 内 は 定数 、 数 式 で も か まい ませ ん 。 計 算 結果 は 一 写 と 和 の 間 の 値 と な 
り ま す 。 行 番号 410 は tan-1X の 値 を 度 に し て 変数 A に 代入 する 命令 女 で す 。 


変数 X の 値 に つい て 、e* の 値 を 求め て 変数 A に 代入 し ます 。 カ ッ コ 内 は 定数 、 
数 式 で も か まい ませ ん 。 


変数 X の 値 に つい て 、 常 用 対数 logioX の 値 を 求め て 変数 A に 代入 し ます 。 み カ 
ッ コ 内 は 定数 、 数 式 で も か まい ませ ん が 、 正 の 値 で な けれ ば な り ま せん 。 
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LN 


RND 


100 A=LN(X) 


110 A=LOG(X)/LOG(Y) 
120 A=LN(X)/LN(Y) 


100 A=RND(1) 
110 B=RND(10) 


200 A=RND(0) 
210 B-RND( 一 3) 


4.1.19 スト リン グ コ ント ロー ル 関 数 


LEFT $ 


MID $ 


RIGHT $ 


SPACE $ 


STRING $ 


CHR $ 


ASC 


STR$ 


VAL 


CHARACTER$ 


LEN 


10 A$=LEFT$(X$ , N) 


20 B$—MID$(X$ ,M,N) 


30 C$—RIGHT $(X$ , N) 


40 D$=SPACE $(N) 


50 E$—STRING $( "^k", 
10) 


60 F$—CHR $(A) 


70 A=ASC(X$) 


80 N$—STR$(I) 


90 I=VAL(N $) 


85 CR$=CHARACTER$ 


(X , Y) 


100 LX=LEN(X$) 


110 LS=LEN(X$+Y$) 


変数 X の 値 に つい て 、 自 然 対数 1log。X の 値 を 求め て 変数 A に 代入 し ます 。 み 
ッ コ 内 は 定数 、 数 式 で も か まい ませ ん が 、 正 の 値 で な けれ ば な り ま せん 。 


対数 の 底 が Y の と き の 対 数 logyX を 求め る に は 行 番号 110 また は 行 番号 120 
に よっ て 求め られ ます 。 


0.00000001 か ら 0.99999999 ま で の 値 を と る 擬似 乱数 を 発生 する 関数 で す 。 
カッ コ 内 に 0 また は 負 の 整数 を 与え る 場合 と 、 正 の 整数 を 与え る 場合 と で 、 
2 通り の 処理 が 行わ れ ま す 。 

行 番号 100 ま た は 110 の よう に カッ コ 内 に 正 の 整数 を 与え る と RND 関 数 を 使 
うた びに 、 順次 0.00000001 か ら 0.99999999 ま で の 間 の 値 を と る 乱数 値 を 発 
生 し ます 。( カ ッ コ 内 に 与え る 正 の 整数 の 値 に は 無関係 で す 。) 

行 番号 200 ま た は 210 の よう に カッ コ 内 に 0 また は 負 の 整数 を 与え る と 乱数 


発生 の イニ シャ ライ ズ が 行なわ れ て 、 い つも ある 特定 の 数 値 を 発生 し て A に 
も B に も 同じ 値 が 代入 きれ ます 。 


スト リン グ 変 数 X $ の 最初 か ら N 文 字 目 まで を 、 ス トリ ング 変数 A $ に 代入 
し ます 。N は 定数 で も 、 変 数 、 数 式 で も か まい ませ ん 。 


スト リン グ 変 数 X $ の 第 M 文 字 目 か ら N 文 字 を 、 ス トリ ング 変数 B $ に 代入 
し ます 。 


スト リン グ 変 数 X$ の 右 か ら N 文 字 を 、 ス トリ ング 変数 C $ に 代入 し ます 。 
N 個 の スペ ー ス を スト リン グ 変 数 D $ に 代入 し ます 。 

10 個 の 連続 し た アス テリ スク マー ク を 、 ス トリ ング 変数 EE $ に 代入 し ます 。 
ASC 関 数 の 逆 で 、 変 数 へ の 値 に 等 し い ASCII コ ー ド の 文字 (キャ ラク タ ) 
を スト リン グ 変 数 F$ に 代入 し ます 。A は 定数 、 変 数 、 数 式 い ずれ で も か ま 


いま せん 。 


スト リン グ 変 数 X$ の 最初 の 文字 の ASCII コ ー ド (10 進 数 ) の 値 を 、 変 数 A 
に 代入 し ます 。 


VAL 関数 の 逆 で 、 変 数 I の 数 値 を その まま スト リン グ と し て 、 ス トリ ング 
変数 N$ に 代入 し ます 。 


スト リン グ 変 数 N$ の 数 字 ス トリ ング を 、 そ の まま 数 値 と し て 変数 に 代入 
LET. 


キャ ラク タ 表 示 位 置 (X , Y) に 現在 表示 され て いる キャ ラク タ を スト リン 
グ 変 数 CR$ に 代入 し ます 。 


スト リン グ 変 数 X$ の 文字 の 長 さ (文字 数 ) を 、 変 数 LX に 代入 し ます 。 


スト リン グ 変 数 X$ と Y$ の 文字 の 長き の 和 を 、 変 数 LS に 代入 し ます 。 


4.1.20 タプ 関数 


| TAB 


4.1.21 


左端 の 白 ぬ き の 数 字 は 計算 の 優先 順位 、 更 に 優先 きれ る の は カッ コ ( 


o 


o- 
@x 


@/ 


算術 演算 子 


10 


10 


10 


10 


10 


10 


| 10 PRINT TAB(X) : A 


AX^Y( べ き 乗 ) 


A=-B( 5) 


A=XXY( RA) 


A=X/Y (BRE) 


A==X+Y( 加 算 ) 


A ニ メーY( 減 算 ) 


4.1.22 比較 ・ 論 理 演算 子 


> 
< 


<>or>< 


+ 


IF A=X THEN… 


IF A$=" XYZ" 
THEN… 


IF A>X THEN… 
IF A«X THEN・… 


IF A<>X THEN… 


IF A>=X THEN… 


IF A<=X THEN… 


IF(A>X)*(B>Y) 
THEN… 


IF(A>X)+(B>Y) 
THEN… 


4.1.23. その 他 の シン ボル 


? 


200 
210 


220 


230 


240 


250 


? "A+B=" ; A+B 
PRINT" A+B=" ; A+B 


A=X: B=X^2:?A,B 


PRINT" AB" ; "CD" ; 
"EF" 

INPUT" X=" ; X$ 
PRINT" AB" , "CD", 
" E " 
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画面 の 左端 か ら 数 えて X 十 1 字 目 に 変数 A の 値 を 表示 し ます 。 


) 内 の 計算 で す 。 


変数 A に XY の 計算 結果 を 代入 し ます 。 
(但し X^Y で X が 負数 の と き 、Y が 整数 で な けれ ば エラ ー と な り ま す 。 


0 一 B は 減算 で す が 、 一 B の 「 一 」 は 負 号 で ある こと に 注意 し て 下さ い 。 
変数 へ 人 に X と Y の 数 値 の 乗算 結果 を 代入 し ます 。 
変数 A に X と Y の 数 値 の 除算 結果 を 代入 し ます 。 
変数 人 に 双 と Y の 数 値 の 加算 結果 を 代入 し ます 。 


変数 A に X と Y の 数 値 の 減算 結果 を 代入 し ます 。 


変数 A と X の 数 値 が 等 し いな ら ば 、THEN 以降 の 命令 を 実行 し ます 。 


スト リン グ 変 数 A$ の 内 容 が スト リン グ XYZ で あれ ば 、THEN 以降 の 命 
令 を 実行 し ます 。 


変数 A が XX より 大 きい な ら ば 、THEN 以 降 の 命令 を 実行 し ます 。 
変数 A が X よ り 小 さい な ら ば 、THEN 以 降 の 命令 を 実行 し ます 。 


変数 A と XX の 数 値 が 等 し く な いな ら ば 、THEN 以降 の 命令 を 実行 し ます 。 
変数 A が 双 よ り 大 きい か 等 し いな ら ば 、THEN 以降 の 命令 を 実行 し ます 。 
変数 A が X よ り 小 さい か 等 し いな ら ば 、THEN 以降 の 命令 を 実行 し ます 。 


変数 A が X よ り 大 きく 、 か つつ 変数 B が Y よ り 大 きい な ら ば 、THEN 以降 の 
命令 を 実行 し ます 。 


変数 A が X よ り 大 きい か 、 ま た は 変数 B が Y よ り 大 きい な ら ば 、THEN H 
降 の 命令 を 実行 し ます 。 


PRINT の 代わ り に 用 いる こと が で きま す 。 し た が っ て 行 番号 200 と 210 は 同 
等 で す 。 


命令 文 の 区 切り を 表わす 記号 で 、 多 重 命令 に 使用 し ます 。 行 番号 220 の 多重 
命令 に は 、3 つの 命令 文 が 置か れ て いま す 。 


PRINT を 続け て 実行 し ます 。 行 番号 230 で は 画面 上 に 、「ABCDEF」 と ス 
ペー ス を 空け ず に 続け て 表示 され ます 。 


画面 に 「 メ ー」 と 表示 し 、 ス トリ ング 変数 X$ の デー タキ ー 入 力 を 待ち ます 。 
タプ ブレ ーション を つけ て PRINT を 実行 し ます 。 行 番号 250 の 文 で は 、 画面 上 


に まず AB と 表示 し 、 次 に A か ら 10 文 字 右 の 場所 より CD と 表示 し 、 次 に C 
か ら 10 文 字 右 の 場所 に EE と 表示 され ます 。 
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300 DIM A(20) , B$(3 , 6) 


320 A$—" SHARP BASIC" 
330 B$= " MZ-2000 " 


340 C$—" ABC" - CHR$(3) 


500 LIMIT $BFFF 


550 S=SIN(X> 7/180) 


変数 の 区 切り に 用 いた 例 で す 。 


"内 が スト リン グ で ある こと を 示し ます 。 


スト リン グ 変 数 で ある こと を 示し ます 。 
16 進 数 で ある こと を 示し ます 。 


円 周 率 の 近似 値 3.1415927 を x で 表わし ます 。 


GP-IB ス テー トメ ント 


本 章 で は GP-TB イ ンタ フェ ー ス カー ド MZ-8BTO4 を 用 いて 、 計 測 器 等 を コン ト 
ロー ル す る 場合 の BASTC ス テー トメ ント に 関す る 内 容 を 含ん で いま す 。 
GP-TB に 関す る 詳細 は 、GP-TB イ ンタ フェ ー ス の 解説 書 を 参照 くだ さい 。 


な お 、GP-TB イ ンタ フェ ー ス の 解説 書 は 、MZ-80B 用 に 作成 され て いま す が 、 
MZ-2000 用 と し て も 使用 で きま す 。 た だ し 、 ス レー ブ モ ー ド に お ける サン プ 
ルプ ログ ラム 例 の 中 で 、BASTC と リン ク す る た め の 番 地 が 定義 され て いま す が 、 
BASTC イ ンタ ー プ リタ MZ-2Z001 (バー ジョ ン V1.0a) を 使用 の 際 は 、 下 記 の 
通り 、 リ ン キ ング アド レス お よび イン タラ プ ト テ ー ブ ル の アド レス を 変更 する 必 
要 が あり ます の で 、 注 意 願 いま す 。 

GP-IB TNTERFACE 解 説 書 
P.84 (リン キン グ ア ド レ ス の 変更 ) 


45 Faas P HERK: X ERU 13 
45 Faga P FGLNK1: EQU 68 
47 F80B P FGLNK2: EQU 58 
43 Fàag P MLADRS: EDU 58 
49 FAGO P MTADRS: EQU Ag 


P.85 (イン タラ プ ト テ ー ブ ル の アド レス 変更 ) 


39 FO2F 220064 LD (5600H).HL 
番地 を 変更 
39 FO2F 220069 LD (6900H).HL 


ステ ー ト メン ト の 書式 

較 ス テー トメ ント を 、 ア ルフ ァ ベ ッ ト 小 文字 、 反 転 文字 で 表記 する こと は で きま 
せん 。 

画 か ざさ ざ カ ッ コ < > 中 の 要素 は 、 省 略 あ る い は 、 任 意 回 の 繰り 返し 記述 が 可能 な 
要素 で ある こと を 示し て いま す 。 実際 の プロ グラ ム に この カッ コ を タイ プ し て 
は いけ ませ ん 。 

画 セ パレ ー タ (コロ ン 、 セ ミコ ロン な ど ) は 、 決 め ら れ た 位置 に 正しく 置か な く 
て は な り ま せん 。 


Chapter 
5 
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BASIC を 使用 する と 、 大 部 分 の GP-IB に 特有 な コマ ンド を 意識 する こと な く 、 プ ログ ラム の 作成 が 可能 で す 。 し か し 、 
規格 で 定め られ た コマ ンド に は 、 コ マン ド を 送出 する 順序 が 決め られ て お り 、 こ の 順序 を 誤る と 、 計 測 器 は 動作 し ませ ん 。 
また 、 計 測 器 に は 、 そ れ ぞ れ ア ドレ ス が つけ られ て お り 、 こ の デア ドレ ス は 1 つの シス テム 内 に 同じ アデ ドレ ス を 持つ 計測 器 
が 2 吾 以上 存在 する と 、 不 適当 な 動作 を し ます 。 
さら に 、 制 御 さ れる 側 の 計測 器 に つい て も 、 そ れ ぞ れ 、 動 作 に 対応 し た コー ド が 決め られ て お り 、 こ の コー ド は 同じ メー 
カ の 同じ 計測 器 以 外 は 、 す べ て 異な っ て いま す 。 従っ て 、 プ ログ ラム を 作成 する 場合 に は 、 測 定 器 の 取扱 い 説明 書 を 良く 
読み 、 理 解 し て お く こ と が 必要 で す 。 ま た 、 デ ー タ の 終了 を 示す コー ド に つい て も 同様 で 、EOI だ け の も の も あれ ば 、E 
OI を だ さき さ ず ASCTL コ ー ド で 代用 する も の 、 この 2 つの 併用 型 等 、 各 種 あ り ま す 。 こ れ ら は すべ て 各々 の 計測 器 に 個 有 の 
も の で あり 、 規 格 の 定め る 範囲 外 に あり 、 ま た 、BASIC コマ ンド に も 含ま れず デー タ と し て 送る ストリ ング デ ー タ に 合 
まれ ます の で 、 こ れ ら の こと を 考え な が ら プ ログ ラム を 作成 する 必要 が あり ます 。 
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GP-IB ス テー トメ ント リス ト 


MZ-2000 が シス テム コン トロ ー ラ と し て 、 イ ンタ フェ ー ス 全体 を 初期 状態 に 設定 。 


i. ICL 

MZ-2000 が シス テム コン トロ ー ラ と し て 、 イ ンタ フェ ー ス 全体 を り モ ー ト ・ モ ー ド に 設定 
2 . REN 

し まず 。 

MZ-2000 が シス テム コン トロ ー ラ と し て 、 イ ンタ フェ ー ス 全体 を ロー カル ・ モ ー ド に 設定 
3. LCL 

LE 

MZ-2000 が コン トロ ー ラ と し て 、 イ ンタ フェ ー ス ・ バ ス 上 の ぁ ヵ で 指定 され る 機器 を ロー カ 
4; LCL n = 

ル に 戻し ます 。 

MZ-2000 が コン トロ ー ラ と し て 、 イ ンタ フェ ー ス ・ バ ス 上 の 機器 すべ て に ロー カル に 戻る 


こと を 禁止 し ます 。 


5 
e MZ-2000 が コン トロ ー ラ と し て 、 イ ンタ フェ ー ス ・ バ ス 上 の 機器 すべ て を 、 機 器 側 で 定め 
られ て いる 初期 状態 に 設定 し ます 。 
—— MZ-2000 が コン トロ ー ラ と し て 、 イ ンタ フェ ー ス ・ バ ス 上 の ヶ ヵ で 指定 され る 機器 を 機器 で 
n 
定め られ て いる 初期 状態 に 設定 し ます 。 
MZ-2000 が コン トロ ー ラ と し て 、 イ ンタ フェ ー ス ・ バ ス 上 の ヵ で 指定 され る 機器 を 動作 開 
8. TRG n 
始 さ せま す 。 
mnm MZ-2000 が コン トロ ー ラ と し て 、 バ バス 上 の 他 の コン トロ ー ラ 機能 を 持つ 機器 に コン トロ ー 
9. PCT n 


. LLO 
. DCL 


ラ の 権利 を 渡し ます 。 そ の 後 は コン トロ ー ラ と し て の 動作 は エラ ー。 
MZ-2000 は コン トロ ー ラ と し て 、>z で 指定 され る 機器 を リス ナ に 、 ト ー カ を 自分 に 設定 し 、 


ee ae v で 指定 する デー タ を 送出 し ます 。 

11. RED no MZ-2000 は コン トロ ー ラ と し て 、xz で 指定 され る 機器 を トー カ に 、 リ スナ に 自分 を 設定 し 、 
? に 受信 デー タ を 格納 し ます 。 

12. WRT/ v MZ-2000 が トー カ と し て 、 ゎ で 指定 する デー タ を 送出 し ます 。 

13. RED/ e MZ-2000 が リス ナ と し て 、 ゎ で 指定 され る 変数 に 、 受 信 デ ー タ を 格納 。 


MZ-2000 が コン トロ ー ラ と し て r$ で 措 定 する コマ ンド を 送出 し 、 そ の 後 MZ-2000 は トー 
カ と な り ま す 。 
MZ-2000 が コン トロ ー ラ と し て x$ で 指定 する コマ ンド を 送出 し 、 そ の 後 MZ-2000 は リス 
Peay. 

バス 上 の 機器 の どれ か が サー ビス 要求 を し て いる 場合 、 そ の 処理 ルー チン に ジャ ンプ 。 
バス 上 の 機器 s ぇ に 対し て 、MZ-2000 が コン トロ ー ラ と し て 、 シ リア ル ・ ポ ー ル を 実行 し 、 ス 
テー タス バイ ト を 変数 ゎ に 格納 し ます 。 

MZ-2000 が パラ レル ・ ポ ー ル を 実行 する 時 に 、 バ ス 上 の 機器 が 応答 する ステ ー タ ス ビ ッ ト を 
/ で 、 機 器 ア ドレ ス を > ヵ で 指定 し ます 。(10 進 で 指定 ) 
MZ-2000 が コン トロ ー ラ と し て マラ レル ポー ル を 実行 し 、 ステ ー タ スピ ビッ ト を 変数 ゃ に 格 
納 し ます 。 

MZ-2000 が 2 パラ レル ・ ポ ボー ルモード を 解除 し ます 。 


14. CMDW x$ 


15. CMDR x$ 
16. ON SRQ 
17. SPOL ne 


19. PPOL v 
20. PPU 


21. GPIBM n 


22. EOIW n 


MZ-2000 が 常に シス テム コン トロ ー ラ で あり 、 ア クティ ブ コ ント ロー ラ で あっ て 、 自 分 の 
アド レス を ぁ ヵ で 指定 し ます 。 


デー タ 送 出 時 の デリ ミタ 指定 。 


23. EOIR n デー タ 受 信 時 の デリ ミタ 指定 。 
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Ol ステ デー トメ ント 


MZ-2000 が BASIC を 起動 し た と き 、 シス テム コン トロ ー ラ 、 アク ティ プ コ ント ロー ラ 、 アド レス No. 1 に 設定 され 
ます が 、 エ ユエ グ 0 動 作 は 何 も し て いま せん 。 


5.1.1. ICL (Interface Clear) 


書 式 ICL 
機 能 IFC ラ イン に 100gs 以 上 の 負 の > ペル ス を 発生 させ 、 イ ンタ フェ ー ス 全体 を 初期 設定 し ます 。 


es 


@MZ-2000 が シス テム コン トロ ー ラ で な いと き は 、 エ ラー と な り ま す 。 
@ 変数 は 不要 で す 。 


5.1.2 REN (Remote Enable) 


i xt 
機 


REN 


mt 
CC 


REN ラ イン を 100/s 間 High レ ベル に し た 後 、REN ラ イン を Low レベ ル に 設定 し 、 バ バス 上 の 機器 を 
リモ ー ト モー ド に 設定 し ます 。 


1004s 
以上 


@MZ-2000 が シス テム コン トロ ー ラ で な いと き は エラ ー と な り ま す 。 
@ 変数 は 不要 で す 。 
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5.1.3 LCL (Local) 


Ed St LCL 
REN ラ イン を High レ ベル に 設定 し 、 バス 上 の 機器 を すべ て ロー カル モー ド (手動 状態 ) に 戻し ま 
e e 
H 
REN 有 効 
L 


@MZ-2000 が シス テム コン トロ ー ラ で な いと き は エラ ー と な り ま す 。 
@ 変数 は 不要 で す 。 
@ 再度 、 測 定 器 を 制御 する と き に は REN コ マン ド の 実行 が 必要 で す 。 


5.1.4 LCL n (Go to local Non 


Se xt LCL m<; n © ; nk? 
ni : 装置 番号 (リス ナ ) 

üt — BE MZ-2000 は ATN ラ イン を Low レ ベル に 設定 し (コマ ンド モー ド )、 リ スナ を 解除 し 、 ヵ で 指定 され 
た 機器 の リス ナ ア ド レス を 送出 し た 後に GTL コ マン ド を 送り 、 指 定 さ れ た リス ナ を ロー カル モー 
ド に し ます 。 


H 
ATN " | コマ ンド モー ド | 


UNL : 3FH 
GTL: 01H 


— —Y 
が シン リス ジジ スナ ッ ア デザ ドレス GTL 
UNL 14 台 まで 可 コマ ンド 


ën 0 一 30 ま で の 10 進 数 で の 指定 が 可能 で す 。 
@ 指定 可 能 な リス ナ の 台数 は 14 以 内 。 
@MZ-2000 が アク ティ ブ コ ント ロー ラ で な いと き は エラ ー と な り ま す 。 
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5.1.5 LLO (Local Lock-out) 


書 式 LLO 
機 能 MZ-2000 は バス を コマ ンド モー ド に し 、LLO コマ ンド を 送り 、 バ ス 上 の 機器 すべ て に 対し て ロー 
カル モー ド に 戻る こと を 禁止 し ます 。( す な わ ち 、 フ ロン トノ パネ ル 操 作 を 無効 に きせ ます 。) 


LLO (11H) 
qure e 
注 意 @MZ-2000 が アク ティ ブ コ ント ロー ラ で な いと き は エラ ー に な り ま す 。 
@ 変数 は 不要 で す 。 
5.1.6 DCL (Device Clear) 
書 式 DCL 
機 能 MZ-2000 は バス を コマ ンド モー ド に し 、DCL コマ ンド を 送出 し 、 バ ス 上 の 機器 すべ て を 機器 個 有 


の 初期 状態 に 設定 し ます 。 


DCL (14H) 
avy F 


@MZ-2000 が アク ティ ブ コ ント ロー ラ で な いと き は エラ ー と な り ま す 。 
@ 変数 は 不要 で す 。 
@ 機器 個 有 の 初期 状態 は 各 計 測 器 の マヤ マニュア ル を 参照 くだ さい 。 
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5.1.7 DCL n (Selected Device Clear) 


= xt DCL m; n.;--- ; nk? 
ni ` 装置 番号 (リス ナ ) 
pi SE MZ-2000 は バス を コマ ンド モー ド に し 、UNL コ ー ド に よっ て すべ て の リス ナ を 解除 し た 後 、 で 


指定 され る 機器 の リス ナ ア ド レス を 送り 、 続 け て SDC コ マン ド を 送出 し 、 指 定 し た リス ナ を 機器 
個 有 の 初期 状態 に 設定 し ます 。 
指定 台 分 の リス ナ が 初期 設定 され ます 。 


UNL 。 リス ナ ・ ア ドレ ス SDC (04H) 
(3FH) 14 台 まで 可 コマ シド 


注 意 enii0 一 30 ま で の 10 進 数 で 指定 し ます 。 
@ 指定 可能 な りえ スナ 台数 は 14 以 下 で す 。 
eMZ-2000 が アク ティ プ コ ント ロー ラ で な いと き は エラ ー と な り ま す 。 


5.1.8 TRG (Trigger) 


書 式 TRG m4; n; s mik? 
ni : 装置 番号 (リス ナ ) 
pit SE MZ-2000 は バス を コマ ンド モー ド に し 、 リ スナ 解除 し た 後 な で 指定 され る 機器 の リス ナ ア ド レス 


に 続け て TRG コマ ンド を 送り 、 指 定 し た 吾 分 の リス ナ を 動作 開始 (測定 開始 ) させ ます 。 


— 
UNL リス ナ ・ TRG(08H) 


(3FH) アド レス —€ 
14 右 以下 "P 


@nilt 0 一 30 ま で の 10 進 数 が 使用 可能 で す 。 
@ 指定 する リスナ の 台数 は 14 以 下 で す 。 
@MZ-2000 が アデ アクティブ コン トロ ー ラ で な いと き は エラ ー と な り ま す 。 
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5.1.9 PCT (Pass Control) 


書 式 PCT n 
n : 装置 番号 (Li 
hi "e MZ-2000 は バス を コマ ンド モー ド に し 、 リ スナ を 解除 し た 後 、 コ ント ロー ラ 機 能 を も つ ヵ で 指定 
され る 機器 の トー カ ア ド レス に 続け て TCT コ マン ド を 送り 、 そ の 機器 に コン トロ ー ラ の 権利 を 渡 
To 


UNL トー カ  TCT(09H) 
(3FH) PEZ ovo 


@ 2 は コン トロ ー ラ 機能 を も つつ 機器 の 番号 で あり 、 指 定 個 数 は 1 。 

@ コ マン ドモ ー ド で は MZ-2000 は アク ティ プ ブ プ コ ント ロー ラ で す が 、 デ ー タ ・ モ ー ド に な っ た と き 
バス 上 で 単なる リス ナ ま だ た は トー カ に 指定 され る まで コマ ンド は 送出 で きま せん 。ICL 実行 の 場 
合 に 、 ア クティ ブ な コン トロ ー ラ に 復帰 で きま す 。 
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5.1.10 WRT (Write) 
WRT m<; ne ; eee; n2, wmv, ーー » Um? 


pu HE 


ni: 装置 番号 (リス ナ ) 

vj: 転送 デー タ (スト リン グ 変 数 、 数 値 変数 また は 定数 ) 
指定 し た リス ナ に 対し て 指定 し た デー タ を 転送 し ます 。 
MZ-2000 は コン トロ ー ラ と し て 、 コ マン ドモ ー ド に お いて 自分 を トー カ に 指定 し 、 ぉ で 示さ れる 機 
器 を リス ナ に 指定 し ます 。 
コマ ンド 送出 後 、MZ-2000 は バス を デー タモ ー ド に し 、 リ スナ に ゅ で 指定 され る デー タ を 送出 し 
ます 。 デ ー タ 送出 後 、 自 動 的 に デリ ミタ コー ド 0DH-0AH お よび EOI を 下図 の タイ ミン グ て で 送出 し 
ます 。 


D 


| コマ ンド モー ド | qnem 


H 0AH 


Ke e Dee e WE 
ーー ニン ニー 


UNL UNT MTA 


@ 転送 デ ー タ と し て 数 値 を 用 いた 場合 、 ス トリ ング に 変換 され て ASCII コ ー ド で 出力 され ます 。 転 
送 デ ー タ が 複数 個 指 定 さ れ た 場合 は 一 連 の ASCII コ ー ド と し て 連続 し て 出力 され ます 。 

@ 装置 番号 rz は 0 一 30 ま で の 10 進 数 が 有効 で す 。 

e 指定 可能 な リス ナ 吾 数 は 14 以 下 で す 。 

@ コ ント ロー ライ ンチ ャ ー ジ (能動 に な れる コン トロ ー ラ ) の 場合 に 実行 可 。 
パス コン トロ ー ル 後に 実行 する と エラ ー と な り ま す 。 


10 WRT 5, "SP1;" M 5 番 の 装置 に "SP1:" が 送ら れる 。 


10 MZ=3 : PC=4 :D$= "ABC" 
20 WRT MZx PC, ee の mm や mm 3 番 、 4 番 の 装置 に "ABC" を 送り ます 。 


10 PL=5 : PN=4 
20 WRT PL, "SP", PN, "g -orcreseees 5 番 の 装置 に "SP4;" を 送る こと に な り ま す 。 
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5.1.11 RED (Read) 


RED n, mé, v2, ……… > vk? 

n | 装置 番号 (トー カ ) 

vi | 受信 デ ー タ 格納 の た め の 変 数 
指定 の トー カ か ら デ ー タ を 受信 し 、 指 定 の 変数 に 格納 し ます 。MZ-2000 は コマ ンド モー ド に お い 
て 自分 を リス ナ に 指定 し 、 ヵ で 示さ れる 装置 を トー カ に 指定 し 、 デ ー タ モー ド に お いて トー カ か ら 
送ら れる デー タ を 入力 し ます 。EOI ラ イン は 1 バイ ト ご と に チェ ッ ク し 、EOI が Low レベ レ で あれ 
ば 、 そ の と き の デ ー タ ライ ン 上 の デー タ を 受信 し て 終了 し ます 。 し か し EO1I が High レー ツレ で あれ ば 
デリ ミタ コー ド (ODH-0AH) を 受信 し た と き に デー タ 受 信 を 終了 し ます 。 


ODH OAH 
Cramer vm Oe ce E 
デー タ 
UNL UNT MLA TAD デリ ミタ 


(3FH) (5FH) 


@ 格納 変数 と し て スト リン グ 変 数 を 使用 し た 場合 、 デ リ ミ タ まで の デー タ (た だ し 253 文 字 以 内 ) を 
格納 する た め 、 ス トリ ング 変数 は 1 つの み 使 用 で きま す 。 

@ 数 値 変 数 を 用 いた 場合 、 一 連 の デー タ の うち 、 コ ンマ (,) また は デリ ミタ まで を 数 値 に 変換 し て 
各々 の 変数 に 順次 格納 し ます 。 (変換 で き な い 場 合 は エラ ー と な り ま す 。) 

e 複数 の 数 値 変数 を 用 いた 場合 、 デ ー タ の 個数 と 変数 の 個数 が 一 致し て いる 必要 が あり ます 。 

測定 器 か ら 送 られ て くる デー タ の フォ ー マ ッ ト は 統一 さま れ て いな い の で 、 こ の 命令 を 使っ て デー 
タ を 入力 する 場合 、 受 信 デ ー タ の フォ ー マ ッ ト に 注意 する 必要 が あり ます 。 


10 RED 5, AG «eem nnn 5 番 の 装置 か ら デ ー タ を 入力 し 、A$ に 格納 する 。 
10 FC=24 
20 RED EC, El, E2 «Hmm 送ら れ て きた デー タ が 100, 240 と すれ ば F1 三 100, 


F2 三 240 と な る 。 


5.1.12 WRT/ 
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WRT/u€4 v, …。 v? 

vi : 転送 デー タ 
自分 が トー カ に 指定 され る こと を 確認 し 、 指 定 さ れ て いれ ば デー タ を 送出 し ます 。 指 定 き され て いな 
けれ ば エラ ー と な り ま す 。 
転送 デー タ の フォ ー マ ッ ト に 関し て は WRT n, ヵ と 同様 で す 。 同 一 の 装置 に 多数 の デー タ を 送る 
場合 、 一 度 ト ー カ 、 リ スナ を 指定 し て お け ば 、 そ の トー カ , リス ナ は 解除 ある い は 再 指定 まで 有効 
で すか ら 、WRT/ 命 令 に より デー タモ ー ド の み で デー タ の 転送 が で きま す 。 


デー タ の デリ ミタ は 0ODH-0AH が 自動 的 に 送出 され 、EOI は 
0AH の 送出 前 に Low と な り 送 出 後に High レ ベル に な る 。 


10 WRT 9, A$ 

20 FOR I=1 TO 100 
30 WRT/A$ 

40 NEXT I 


9 番 の 装置 に A$ の 内 容 を 101 回 送る 。 
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5.1.13 RED/ 


RED/1<, v2, °**, vi? 

vi ・ デ ー タ 格納 の た め の 変数 
自分 が リス ナ に 指定 され て いる こと を 確認 し 、 指 定 さ れ て いれ ば デー タ を 入力 し 、 変 数 に 格納 し ま 
す 。 リ スナ に 指定 され て いな けれ ば エラ テラー となり ます 。 
デー タ 格 納 変数 に 関し て は 、RED n, ? の 場合 と 同様 で す 。 
WRT/ 命 令 の 場合 と 同様 に 、 同 一 の トー カ か ら の デー タ を 何 回 も 受信 する 場合 に 、 こ の 命令 は 有効 
yos p^ 


デー タ ( 1 バイ ト ご と に EOI チ ェ ッ ク ) ODH OAH 


デー タ 1 バイ ト 受 信 ご と に EOI チ ェ ッ ク し 、EOI が Low で あ 
れ ば デー タ エ ン ド と 判断 し て 、 その と き の デ ー タ を 受信 す 
Bo 


10 DIM A $ (100) 

20 RED 13, A$ (0) 

30 FOR I=1 TO 100 ù 13 番 の 装置 か ら デ ー タ を 101 回 入力 し 、A$( ) に 入れ る 。 
40 RED/A$ (I) 

50 NEXT 1 


5.1.14 CMDW 


機 BE 
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(Command Write) 


CMDW x$ 

EM 転送 デー タ 
MZ-2000 は コマ ンド モー ド に お いて 自分 自身 を トー カ に 指定 し 、x$ で 示さ れる コマ ンド に 対応 す 
る スト リン グ を バス に 送出 し た 後 、 デ ー タ モー ド に 設定 する 。 


※ デ ー タ モー ド で は MZ-2000 が 常に リス ナ と な る 。 


ATN H 


p | | | | | | 
PAF 


ペーーーーー PÓ— à 
ユー ザ が 自由 に 設定 可 
(た だ し 、 ト ー ク 、 ア ント ー ク コマ ンド は 使用 不可 ) 


@x$ 中 に は UNT(5FH)、TAD(40Hー5EH ) は 使用 し な いで くだ さい 。 

@ 同 じ リ スナ と 同じ トー カ 間 で 何 回 も デー タ を 転送 する と き に 、 こ の ステ ー ト メン ト を 使用 する と 
便利 で す 。 コ マン ド の 設定 が 1 回 で すみ ます 。 

@ 2 次 アド レス を 持つ 機器 の アド レス が 可能 で す 。 

@ こ の ステ ー ト メン ト は ユー ザ が 自由 に 使用 で きま す が 、 規 格 (IEC,IEEE-488) の 内 容 を 理解 し 
な いで 使用 する と 全く 動作 し な い 場 合 が あり ます 。 


10 A$ —CHR$ ($ 3F) -CHR$ ($25) ……… の の の の intUNL、 お よび プロ ッ タ を リス ナ 
20 B$ = "LBAAA" +CHR $ ($03 -CHR$ ($3B) …………… の の の …… デ リ ミ タ 二 デ リ ミ タ 
30 CMDW A$ ーー トー カ MZ-2000、 リ スナ プロ ッ タ に 指定 
40 FOR I—0 TO 100 

50 WRT/B $ Dott 101 回 デー タ を 書く 


60 NEXT 
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5.1.15 CMDR 


(Command Read) 


CMDR x$ 

x$ : 受信 デー タ 
MZ-2000 は コマ ンド モー ド に お いて 自分 自身 を リス ナ に 指定 し 、z$ で 指定 する コマ ンド に 対応 す 
る スト リン グ を バス に 送出 し た 後 、 ゲ デー タモ ー ド に 設定 する 。 


※ デ ー タ モー ド で は MZ-2000 が 常に トー カ と な る 。 


| avy Feo FP | 7 2 P 


ユー ザ で 自由 に 設定 で きる 
(た だ し 、 ト ー み は 1 aA 


リス ナ は 13 台 まで 可 ) 


e MZ-2000 が リス ナ に 指定 され て いる の で 、 ト ー カ を 1 吾 指定 すれ ば 、 ユー ザ が 指定 で きる リス ナ 
台数 は 13 台 まで と な り ま す 。 

同じ リス ナ 、 同 じ ヒト ー カ 間 で デー タ を 何 回 も 転送 する 際 の コマ ンド 指定 に ここ の ステ ー ト メン ト を 
使用 する と 便利 で す 。 

e 2 次 アド レス の 送出 に 使用 で きま す 。 

@ こ の ステ ー ト メン ト は ユー ザ が 自由 に 使用 で きま す が 、 規 格 (IEC,1EEE-488) の 内 容 を 理解 し 
な いで 使用 する と 全く 動作 し な い 場 合 が あり ます 。 

10 A$ =CHR$ ($3F) -CHR$ ($5F) -CHR$ ($51) 


T T T 
UNL UNT トー クア ドレ ス 
20 CMDR A $ HH MZ-2000 を リス ナ 、HP-3325A(F.G) を トー カ に 指定 
30: REDI EE setiegegeeee eidel ni dre ein datt トー カ か ら の デー タ を B$ に 格納 


40 PRINT B$ 
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5.1.16 ON SRQ 


= 1 ON SRQ 1, 
la: 行 番号 
機 能 この ステ ー ト メン ト を 最初 に 実行 し て お く と 、 バ バス 上 の 機器 が 、 サ ービス を 要求 し て きた と き に /z 


で 示さ れる 行 番号 か ら は じ ま る 処理 ルー チン へ ジャ ンプ "し ます 。 
この ステ ー ト メン ト は 1 回 の み 有 効 で あり 、 処 理 ル ー チ ン の 実行 完了 後 、 再 度 必要 な 場合 に は 改め 
て この ステ ー ト メン ト を 設定 し な けれ ば な り ませ ん 。 


5.1.17 SPOL (Serial Polling) 


= x SPOL n, v 
n : 装置 番号 (トー カ ) 
ゥ ・ ス テー タス パイ ト 
MZ-2000 は コン トロ ー ラ と し て リス ナ 解 除 し 、SPE コマ ンド に つづ け て ヵ で 指定 され る 機器 の ト 
一 カ ア ド レス を 送り 、 デ ー タ モー ド に し ます 。 
デー タモ ー ド に お いて 指定 され た トー カ みか ら の ステ ー タ スバ イト を 受信 し 変数 ゎ に 格納 し ます 。 
再度 コマ ンド モー ド に 設定 し 、SPE コ マン ド 、UNT コマ ンド を 送り 、 シ リア ルポ ボー ルモード を 
解除 し ます 。 


シリ アル ポー ル ・ モ ー ド 


ee 


UNL SPE TAD, ステ ー タ スバ イト SPD UNT 
(3FH) (18H) 受信 (19H) (5FH) 


ca 


指定 トー カク 1 EDAT, ヵ で 示さ れる アド レス は 0 一 30 ま で の 10 進 数 が 有効 で す 。 


10 ON SRQ 150: N=5 


20 ICL : REN : DCL 


a0 WRT 5, IM252,, 2, 165" eem エラ ー が 生じ た と き SRQ を 発生 させ る 。 

40 WRT 5, "SPl; SP24 SP9; ee SP9 で エラ ー が 発生 。 

50 WRT 5, "IN;" : GOTO 900 ……… E 9 ves ER. 

150 SPOL N, Aem N で 指定 され る トー カ の ステ ー タ ス を 変数 A に 格納 。 
160 IF A> =64 THEN 50-8 A が 40H 以 上 で あれ は 要求 源 確認 。 

170 N= N-Fl^ GOTO 150: …ーー ツ ーー 次 の トー カ を チェ ッ ク す る 。 


900 END 
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5.1.18 


PPC (Parallel Poll Configure) 


式 


A 


D 


PPC n, 1 

n ・ 装置 番号 (リス ナ ) 

7 : デー タラ イン 番号 
MZ-2000 は コン トロ ー ラ と し て バス を コマ ンド モー ド に し リス ナ を 解除 し 、 ヵ で 指定 され る 機器 
の リス ナ ア ド レス を 送り 、 続 け て PPC コ マン ド を 送出 し 、 さ ら に (7 一 1 ) 十 68H で 示さ れる PP 
E コ マン ド を 送出 し 、 パ パラレル ポー ル 時 に リス ナ に 指定 し た 機器 が 応答 する デー タラ イン を 割り 振 
り ま す 。 


UNL LAD PPC PPE UNL 

(3FH) (05H) (3FH) 
PPE コ マン ド の セン スピ ビッ ト (bit 3) は 1 に 設定 され て い 
る た め PPE コ マン ドー68H 十 (%ー1) と な る 。 


@ PPC ス テー トメ ント は プロ グラ ム で PPOL を 実行 する 以前 に 実行 し て お く こ と が 必要 で す 。 

@ PPE コ マン ド の セン ス ビ ピット を 0( ゼ ロ ) に する 場合 は 、CMDW また は CMDR を 用 いて コマ ン 
ド を 上 図 の 手順 で (PPE の み 60H 十 ( 7 一 1 ) と し て ) 送 出し ます 。 

€ nii0 一 30 ま で の 10 進 数 が 有効 で す 。 

@ / は 1 一 8 まで の 10 進 数 が 有効 で 、 応 答 す る デー タラ イン 番号 を 示し ます 。 

@ こ の ステ ー ト メン ト は PE 機能 の サブ プ セ モッ ト が PP1 の も の に 対し て の み 有 効 で 、PP2 (ハー ドウ 
ェ ア で 応答 ビッ ト が 決定 され て いる ) を 使用 し て いる も の に 関し て は 無効 で す 。 

@ PPE コ マン ド の 解除 は PPD(70H) コマ ンド を 送出 し な けれ ば な り ま せん (CMDW ま た は CM 
DR を 用 いる こと の 
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5.1.19 PPOL (Parallel Poll) 


PPOL v 

ゥ ・ ス テー タス ビッ ト 格 納 変数 
MZ-2000 は コン トロ ー ラ と し て 任意 の 時 点 で ATN と EOI ラ イン を 共に Low レベ ル に 設定 し て パラ 
レル ポー ル を 実行 し ます 。 

この 時 の み 3 線 ハ ンド シェ ー ク を 使用 し な いで リス ナ が ステ ー タ スピ ビッ ト を 設定 する 時 間 ( 約 2 
us) だ け 待 っ た 後 、 デ ー タ ライ ン 上 の ビッ トノ パタ ー ン を 変数 o に 格納 し ます 。 


パラ レル ポー ルモード 


ATN と EOI が 共に Low レ ベル に な っ て か ら 2gs 以上 の デレ 
イタ イム 後に デー タラ イン 上 の ステ ー タ ス ビ ッ ト を リー ド 
する 。 


変数 ゎ は 10 進 数 で 0 一 255 ま で の 範囲 で す 。 


10 ON SRQ 100 
20 ICL: REN ` DCL 


30 WRT 5, "IM252, 32, 16; " … の tt エラ ー が 生じ た ら SRQ を 発生 する 。 

40 WRT 5, "SP1;SP2; SP7;" …………SP7 で エラ ー が 生じ 、SRQ が 発生 し た の で 。 
50 WRT 5, "SPO;IN;" : GOTO 900 … プ ロッ タ を 初期 設定 し て 終了 。 

100 PPOL Aen ZS レル ポー ル 実 行 。 

110 IF A=4 THEN BO. A = 4 Ze 50K, 

120 PRINT "ERROR" の の ーーー…… A チチ 4 なら エ ラー 表示 。 


900 END 
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5.1.20 PPU (Parallel Poll Unconfigure) 


書 式 PPU 

we OBE MZ-2000 は コマ ンド モー ド に お いて PPU コ マン ド を 送出 し パラ レル ポー ルモード を 解除 し ます 。 
PPU(15H) 
コマ ンド 

SE, ` パラレル ポー ル を 再 実行 する た め に は 再度 PPC ヵ ,7 の ステ ー ト メン ト を 実行 し な けれ ば な り ま せん 。 


5.1.21 GPIBM 


書 式 GPIBM n 
n ` 装置 番号 
T AE MZ-2000 を シス テム コン トロ ー ラ 、 ア クティ プ ブ コ ント ロー ラ に 設定 し 、z で 指定 され る 0 一 30 ま で 


の 10 進 数 を 自分 の 装置 番号 と し ます 。 


5.1.22 EOIW 


# x EOIW m また は EOIW m, m 
m 7"05:7')872 
機能 デー タ 送 出 時 の デリ ミタ と し て 2 個 ま で の 10 進 数 で 指定 し ます 。 
e 3 個 以 上 の デリ ミタ は 無視 し ます 。 
@EOI は 最後 の デリ ミタ の 送出 前 後 の 間 だ け Low レベ ル に な り ま す 。 


5.1.23 EOIR 


ES 式 EOIR m また は EOIR m, "e 

f. mi Py sy 
機能 デー タ 受 信 時 の デリ ミタ と し て 2 個 ま で の 10 進 数 で 指定 し ます 。 
注 意 e 3 個 以 上 の デリ ミタ は 無視 し ます 。 


@EOI ラ イン が Low レベ ル で あれ ば 、 そ の と き の デ ー タ ライ ン 上 の デー タ を 受信 後 、 終 了 し ます 。 
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5.2 プロ グラ ム 作 成 上 の 注意 


アド レス 
各 計 測 器 、 機 器 に は それ ぞ れ 個 有 の アド レス が 設定 され て お り 、 こ の アド レス は か そえ られ る よう に な っ て いま す 。 
1 つの シス テム 内 に 同じ アド レス を 持つ 計測 器 が ある と 誤動作 の 原因 に な り ま す の で 注意 が 必要 で す 。 


デー タ の デリ ミタ 

各 計 測 器 に は 、 デ ー タ の 終了 を 判断 する た め の コ ー ド 、 す な わ ち デリ ミタ が 設定 され て いま す が 、 こ れ は 各種 類 あり 、 
極端 な 場合 、 同 一 測定 器 で あっ て も 動作 モー ド に よっ て 、 デ リ ミ タ が 異な る 場合 が あり ます 。 

MZ-2000 で は 初期 設定 と し て 、0DH-0AH の 2 バイト が デリ ミタ と し て 定義 きれ て いま す が 、 使用 する 計測 器 の デリ ミ 
タ に 合せ る 必要 が あり ます 。 

さも な けれ ば 、 デ ー タ 転送 が 途中 で 停止 し 、 動 作 し な く な り ま す 。 

デリ ミタ は 計測 器 の 取扱 い 説明 書 に 示し て あり ます か ら 、 そ れ を 参照 し て くだ さい 。 


ステ ー ト メン ト の 実行 順序 
シリ アル ポー ル 時 の "ON SRO! パパ パラレル ポー ル の "PPC n, U アド レス の 設定 、 デ リ ミ タ の 指定 、ICL、 REN 
等 は プロ グラ ム の 最初 で 実行 し て お か な けれ ば 、 全 く 用 を な さ な い 場合 が あり ます の で 注意 し て くだ さい 。 


計測 器 の 応答 が な いと き 
BREAK キ ー に より プロ グラ ム を 停止 きせ て 、 プ ログ ラム エラ ー を 修正 し て 再度 RUN 実 行 し て くだ さい 。 


ウェ イト ルー チン 
計測 器 に は デー タ の 送受 の 準備 完了 まで の 待ち 時 間 を 設定 する 必要 が あり ます 。 
MZ-2000 で は WAIT ステ ー ト メン ト が あり ませ ん の で 、FOR NEXT Loop で 適当 な 待ち 時 間 を 設定 し て くだ さい 。 


相手 側 に PCT 機 能 が な いと き 

PCT ス テー トメ ント に よっ て 、 他 の コン トロ ー ラ に コン トロ ー ラ の 権利 を 渡し た 後 、 そ の コン トロ ー ラ が 再度 MZ-2000 
に コン トロ ー ラ の 権利 を 戻す 機能 が な いと き 、ICL を 実行 する と 相手 の コン トロ ー ラ は は 初期 設定 され 、MZ-2000 に コン 
トロ ー ラ の 権利 が 戻り ます 。 

た だ し MZ-2000 は シス テム ・ コ ント ロー ラ で ある こと か 必要 で す 。 
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本 章 で は 、 シ リア ルイ ンタ フェ ー ス カー ド MZ-8BT03 を 用 いて 、 周 辺 機器 を コン 
トロ ー ル する 場合 の BASTC ス テー トメ ント に 関す る 内 容 を 含み ます 。 

シリ アル イン タフ ェ ー ス の 解説 書 (MZ80B 用 に 作成 され た 解説 書 で す が 、MZ- 
2000 用 と し て も 支障 な く 使 用 で きま す 。) も 参照 くだ さい 。 


61 ステ ー ト メン ト 


6.1.1 RSMODE 
書 式 RSMODE a, Rb, Tc, Md, RXe 


a ・ チ ャ ン ネ ル 指 定 


AA チャ ン ネ ル 


B チ ャ ン ネ ル 


ヵ : 受信 キャ ラク タ の ビッ ト 数 指定 
c : 送信 キャ ラク タ の ビッ ト 数 指定 


1% 


| 70 E 
71 偶数 
79 | 奇数 
74 無 
75 偶数 
77 DES 
78 無 
79 偶数 


6.1.2 RSO 


6.1.3 RSI 


上 記 ッ パラ メー タ に より 各 モ ー ド の 設定 を 行い ます 。 


@ すべ て の パラ メー タ を 指定 する 必要 は あり ませ ん が 、 受 信 可 不可 の 指定 は 各 * パ ラメ ー タ 指定 の 
必ず 最後 に お か な けれ ば な り ま せん 。 

@ モー ド 設 定 パ ラメ ー タ oc 一 e の 指定 は 上 記 以 外 の も の は 使用 し な いこ と 。 

@ BASIC 起 動 時 に は 各 チ ャ ン ネ ル 共 、 次 の モー ド に 設定 され て いま す 。 


b, c 8 キャ ラク タビ ッ ト 数 8 
d 79 偶数 パリ ティ スト ッ プ ビッ ト 2 
e 0 受信 不可 
10 RSMODE A, RXl1:---- チャ ン ネ ル A を 受信 可能 と する 。 


RSO x y$ 
ァ ・ チ ャ ン ネ ル の 指定 (A また は B) 
yS : スト リン グ 変 数 で 転送 デー タ を 指定 。 
チャ ン ネ ル ぇ へ g$ で 指定 され る デー タ を 送信 し ます 。 


10 X$ = "Demonstration" 
20 RSO B X$----- チャ ン ネ ル B へ X $ の デー タ を 転送 し ます 。 
RSI x y$ 


x : チャ ン ネ ル の 指定 (A ま た は B) 

y$ : 受信 デー タ を 格納 する スト リン グ 変 数 
チャ ン ネ ル ァ か ら デ ー タ を 受信 し 、 ス トリ ング 変数 y$ に 格納 し ます 。 
10 RSMODE A, RX1 ………… チャ ン ネ ル A を 受信 可能 と する 。 
20 RSI A B$ …………………ー チ ャ ン ネ ル A か ら デ ー タ を 受信 する 。 
30 PRINT B$ 


付 $k Appendix 


付録 に は 次 の も の が 置か れ て いま す 。 


圏 デ ィ ス ク の 取り 扱い 上 の 注意 
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A.2 rz2—4yt—z 


文法 上 の 誤り 
数 値 デ ー タ が 範囲 外 、 演 算 結 果 が オー バフ ロー し た 

規定 外 の 数 値 、 変 数 が 使わ れ た 

デー タ と 変数 の 型 が 一 致し な い 

スト リン グ の 長 さ が 255 文 字 を 越え た 

メモ リ 容 量 不 足 と な っ た 

同じ 配列 変数 を 前 より 大 きく 定義 し た か 、 未 定義 の 配列 変数 を 使用 し た 

1 行 の 長き が 制限 を 越え た 


o 0o NO ao A CQ N nm 


10 GOSUB 文 の ネス ティ ング が 15 を 越え た 

11 FOR 一 NEXT 文 の ネス ティ ング が 15 を 越え た 

12 DEF FN 文 に よる 関数 定義 の ネス ティ ング が 6 を 越え た 

13 対応 する FOR 文 の な い NEXT 文 が 使わ れ た 

14 対応 する GOSUB 文 の な い RETURN 文 が 使わ れ た 

15 定義 きれ て いな い 関 数 が 使わ れ た 

16 存在 し な い 行 番号 を 参照 し よう と し た 

17 CONT 娘 に よる プロ グラ ム の 継続 が で き な い 

18 BASIC イン ター ブリ タ の 管理 エリ ア 内 へ の 書き 込み 要求 を し た 

19 ダイ レク トコ マン ド と ステ ー ト メン ト を 混同 し て 使っ た 

20 RESUME が 実行 で き な い 

21 エラ ー が 発生 し て いな い の に RESUME し よう と し だ た 

22 

23 

24 対応 する DATA X 07:v READ 文 が 使わ れ た 

25 SWAP レベ ル が 1 を 越え た 

26 

27 

28 

29 | フレ ミン グ エ ラ ー 

30 オー クッ ペ ー タ ラジ エラ ーー 

RS-232C 31 パリ ティ エラ ー 

32 デー タ 転 送 不 能 (バッ ファ が 空 で な い ) 

33 バッ ファ の オー バー フロ ー 
シス テム コン トロ ー ラ で な い の に その 命令 を 使用 し た 
カー ド ま だ た は ケー ブル が 接続 きれ て いな い 
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3 線 ハ ンド シェ ー ク の NDAC と NDTD が 同時 に High レベ ル 
アド レス コー ド の 設定 エラ ー 


カー ド 上 で トー カ 、 リ スナ が 同時 に アク ティ ブ 
リス ナ ま た は トー カ が 能動 で な い 


ディ スク 


ディ スグ 
sz 
カセ ッ ト 


存在 し な い フ ァイル を 参照 し た 

ディ スク ドラ イブ の ハー ド 上 の エラ ー が 発生 し た 

すでに 存在 する ファ イル 名 を 新た に 登録 し よう と し た 

すでに オー プン され て いる ファ イル を 更に オー プン し よう と し た 
オー プン され て いな い フ ァイル を 参照 また は CLOSE, KILL し た 


書き 込み 禁止 ファ イル 


ディ スク ドラ イブ が レデ ィ 状 態 で な い 
63 を 越す ファ イル を 登録 し よう と し た 


ボリ ュー ム ナ ン パ バー エラ ター 


ディ スク 上 の ファ イル スペ ー ス が 無く な っ た 

イニ シャ ライ ズ さ れ て いな い デ ィ ス ケッ ト 

1 つの BSD ファ イル の デー タ の 総 バ イト 数 が 64K を 越え た 
ディ スク ドラ イブ コン トロ ー ル ルー チン で の デー タタ エラー 
使用 不能 ディ スク 


ファ イル 名 エラ ー 


ファ イル モー ド エ ラ ー 


込み で 、 ア ウト オプ ファ イル が 起き た 


ロジ カル ナン バー エラ ー 


プリ ンタ が 接続 きれ て いな いか 、OFF 状態 で ある 
プリ ンタ に メカ トラ ブル が 起き た 


プリ ンタ 用 紙 ぎ れ 


チェ ッ ク サ ム エ ラ ー 


120 


A.3 メモ リ ・ マ ッ プ 


$ 0000 


$ 12A0 
$ 12A0: コー ルド スタ ー ト アド レス 
$ 1300 : ホッ トス ター ト ア ドレ ス 


$ FFFF 


121 


AA ディ スク の 取り 扱い 


ディ スク の セッ ト の 仕方 な を ど デ ィ ス ク ド ラ イブ の 操作 方 法 に つい て は 、MZ-80BF 等 の 取扱 説明 書 を よく お 読み くだ さ 


い 。 


マス ター ディ スク の 取扱 い に は 充分 な 注意 が 必要 で す 。 ま た 、 シ ャ ー プ オプ ショ ン デ ィ ス ク は イニ シャ ライ ズ し て お り 


ませ ん の で 、 ユ ー テ ィ リ ティ プロ グラ ム に よっ て イニ シャ ライ ズ し て か ら 使 用 し て くだ さい 。 


ディ スク の 取り 扱い 上 の 注意 (使用 時 ) 
BN ヘッ ドウ ィ ン ド ウ の 箇所 か ら デ ィ ス ク に 指紋 を つけ た りす る と 、 読 み 出 し 書き 込み が 、 永 久 に 不能 と な り ま す 。 デ 


ィ ス ク 表 面 は 絶対 に 汚さ き な い よう 細心 の 注意 が 必要 で す 。 


保存 温度 条件 4°C ~53°C (ディ スク 周囲 温度 ) 

53°C を 起す と ジャ ケッ ト が 変形 し ます 。 直射 日 光 に 長 時 間 さ きら し た り 53 で C を 越す 場所 に 置い た り し な いで くだ さい 。 
ディ スク を 使用 する 場合 、 エ ン ベ ロ ー プ (保護 袋 ) に 記載 の 温度 範囲 で 使用 する よう に し て くだ さい 。 ま た 保管 場所 
と 使用 場所 の 環境 条件 が 異 な る 場合 が あり ます の で 、 適 用 使用 環境 下 に し ば らく 放置 し て か ら 使用 する よう に 願い ま 
ER 

ドラ イブ へ の 装着 は 、 ま っ すぐ に 挿入 し 、 止 まる 位置 まで 押し 込み 静か に フロ ント ドア を し め て くだ さい 。 ILZA 
扱い は ディ スク を い だ た め ま す 。 


曲げ た り 、 折 っ た り し な いで くだ さい 。 ジ ャ ケッ ト が 変形 する と 、 読 み 出し 書き 込み が で き な く な り ま す 。 


イン デック スラ ベル の 書き 込み は 、 ジ ャ ケッ ト に は る 前 に お こ な っ て くだ さい 。 す で に は られ た ジャ ケッ ト に 書き 込 
む 場 合 は 、 鉛 筆 ・ ボ ー ル ペン を さけ サイ ン ペ ン な と ど 先 の 軟らか いも の を 使用 し て くだ さい 。 


喫煙 し な が ら 、 飲 物 を 飲み な が ら 、 デ ィ ス ク お よび ディ スク ドラ イブ を 取り 扱う 場合 は 、 灰 や 水滴 で 汚さ な いよ う 3 特 
に 注意 する 必要 が あり ます 。 


ディ スク の 取り 扱い 上 の 注意 (保管 時 ) 


磯 石 を 近づけ る こと は 絶対 に さけ て くだ さい 。 マ グ ネ ッ ト リ ング や 、 マ グ ネ ッ ト ネ ッ ク レ ス な ども デー タ を 消す こと 
が あり ます か ら デ ィ ス ク を 取り 扱う 時 は 、 そ の 使用 を さけ て くだ さい 。 そ の 他 の 磁気 を 発生 する 機器 に 近づけ る こと 
も 危険 で す 。 な た と えば 、 コ ンピュータ の CRT ディ スプ レイ 、 カ セッ トレ コー ダ 、 家 庭 用 テレ ビ の 近く な ど で は 磁気 
が 発生 し て いま す の で 近づけ な いで くだ さい 。 


使用 し な い 時 は か な ら ず エン ベロ ー プ に 入れ て くだ さい 。 ド ライ ブ か ら 取 り だ し た ら 、 た だ ち に エン ベロ ー プ に 入れ 
る よう に 習慣 づけ て くだ さい 。 こ れ に よっ て 、 デ ィ ス ク の 取扱 い の 過 ち に よる 大 半 の 事故 が 防げ ます 。 特 に マス ター 
ディ スク は 、 使 用 する 時 に の み デ ィ ス ク ド ラ イブ に モッ ト し 、 使 用 し な いと き は 大 切 に 保管 する よう に し て くだ さい 。 
エン ベロ ー プ は 、 特 殊 な 材質 で で き て お り 、 静電気 ・ 湿 気 等 を 防い で いま す の で ディ スク は 必ず エン ベロ ー プ に 収納 
し で ぐさ きい 。 
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B 保管 は 、 エ ン ベ ロ ー プ に 入れ だ た も の を 、 さ ら に 収納 箱 に 入れ て 垂直 に 立て て くだ さい 。 な な め に 立て か け だ たり 、 デ ィ 
スク が だ た わ む よう な 形 で 保管 する こと は さけ て くだ さい 。 
マス ター ディ スク に は 、 収納 箱 が 付属 し て お り ま せん 。 適 当 な 箱 を 作っ て 保管 し て くだ さい 。 


B 紙 バ サミ な ど で は さむ こと は さけ て くだ さい 。 


B ディ スク の 上 に 重い も の を 置か な いで くだ さい 。 ディス ク を 無 雑 作 に 机 の 上 に 置く こと は し な いで 、 必 ず 所 定 の 場所 
に 保管 し て くだ さい 。 


グ ャ セー の 


産業 機器 事業 本 部 


国内 産 機 営業 本 部 


お 客 様 ご 相談 窓 


*L 幌 (011642-4649 1 
東 京 〈03)893-4649 


杭 式 会 社 


B45 大 阪 市 阿倍 野 区 長池 困 22 番 22 号 

電話 (06)621 一 1221( 大 代表 ) 

8630-11 奈良 県 大 和 郡 山 市 美濃 庄 団 492 番 地 
電話 (07435)3 一 5521〈 大 代表 ) 

8162 東京 都 新宿 区 市 合 八幡 町 番地 

電話 03)260-1161〈 大 代表 ) 


台 (0222)88-9141 宇都 宮 (0286)35-1155 
沢 (0762)49-4649 名 古屋 (052)322-4649 


山 
金 

A BR (<062643-4649 広 & (082)874-4649 高 #A (0878)33-4649 
xp 


ta PO (0925572-4649 3 


ジャ ーー エン 


本 社 114 E 
ALR sz 5 «063 
WG sz 983 
宇都 宮 衣 店 «320 
東京 支店 U- 4 
金沢 支店 SEN 
名 古屋 支店 «454 


#8 (0988562-2231 


XK BR SZ e 
広島 支店 8731 


ゾー ニー ア リッ 2 株 式 会 社 

北 区 東田 端 2 丁目 13 番 17 号 電話 (03)800-1221 代 表 ) 

札幌 市 西区 24 軒 1 条 7 丁 目 3 番 17 号 電話 (011)641 一 4649 
仙台 市 丁目 字 本 新 田 東 2 番 地 の 1 電話 (0222)88 一 9141 
宇都 宮 市 不動 前 4 丁目 2 番 41 号 電話 C0286235 一 1155 
東京 都 北 区 東田 端 2 丁目 13 番 17 号 電話 (03)800 一 1221 
石川 県 石川 郡 野々 市 町 字 御 経塚 1096 番 地 の 1 電話 (0762)49 一 4649 
包 古 屋 市 中 川 区 山王 3 丁目 5 番 5 号 電話 (052332 一 2626 
ARBRE BA 1 T 6269S 電話 (06)643 一 4649 


-01 広島 市 安佐 南 区 祇園 町 大 字 西 原 2249 番 地 の 1 電話 082)874 一 2281 


高松 支店 «4760 高松 市 木 太 町 1861 番 地 の 3 電話 (0878)33 一 4649 
福岡 支店 «0816 福岡 市 博多 区 井 相 田 2 丁 目 12 番 地 の 1 電話 092)572 一 4655 
沖縄 シヤ シー プ 電 機 山 «900 8OERDES]E310883001 電話 C0988)62 一 2231 

ジャ ーー ビジ ネス 本 式 会 社 

本 社 B45 大 阪 市 阿倍 野 区 長池 町 22 番 22 号 電話 06)621-1221〈 大 代表 ) 

札幌 支店 O63 札幌 市 西区 24 填 1 条 7 丁 目 3 番 17 号 電話 (011)641 一 3631 

仙台 支店 8983 仙台 市 丁目 字 本 新 田 東 2 番 地 の 1 電話 0222)88 一 9151 
東京 支店 8130 東京 都 墨田 区 石原 2 丁目 12 番 3 号 電話 〈03)625 一 5111 代 表 ) 
FZE 8280 千葉 市 南町 1 丁目 5 番 20 号 電話 (0472 の 63 一 4043 
MASS «235 横浜 市 磯子 区 中 原 1 丁目 2 番 23 号 電話 (045)751 一 3215 
埼玉 支店 8330 大 宮 市 宮原 団 2 丁目 107 番 地 2 号 電話 (0486)63 一 5159 
FZE «320 宇都 宮 市 不動 前 4 丁目 2 番 41 号 電話 (0286)3/ 一 3576 
新潟 支店 «5050 新潟 市 上 所 中 1 丁目 7 番 21 号 電話 (0252)83 一 1795 
長野 支店 8380 長野 市 中 御所 2 丁目 1 番 3 号 電話 (0262)28 一 4618 
BOBS 8454 名 古屋 市 中 川 区 山王 3 丁目 5 番 5 号 電話 (052)332 一 2631 代 表 ) 
金沢 支店 8921 石川 県 石川 郡 野々 市 町 字 御 経塚 1096 番 地 の 1 電話 (0762)49 一 1240 
ARZE "556 大 阪 市 浪速 区 恵美 人 希 西 1J 目 2 番 9 号 電話 (062643 一 3021( 代 表 ) 
京都 支店 «601 京都 市 南 区 上 鳥 層 菅田 町 48 番 地 電話 (075)661 一 7335 
神戸 支店 e 神戸 市 東灘 区 急 崎 北町 1 丁目 6 番地 18 号 電話 (078)452 一 8531 
広島 支店 8731-01 広島 市 安佐 南 区 移 園 町 大 字 西 原 2249 番 地 の 1 電話 082)874 一 4925 
高松 支店 B/60 高松 市 本 太 団 1861 番 地 の 3 電話 0878)33 一 4255 

1e RS se [5 «9816 福岡 市 博多 区 井 相田 2 丁目 12 番 地 の 1 電話 092)572 一 2611 

Xp KB sz 5 «900 那覇 市 時 2 丁目 10 番 地 の 1 電話 0988)61 一 7360 代 表 ) 


